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CHIPPEWA FORTRAN COMPILER - RUN 

Section 1 
GENERAL DESCRIPTION 



INTRODUCTION 

"RUN", the Chippewa Laboratory's FORTRAN compiler for the 6000 series 
computer systems, generates binary object code directly from FORTRAN II 
and FORTRAN IV source programs. The compiler also accepts programs 
written in a subset of the ASCENT assembly language, and in the MACHINE 
assembly language. The compiler also accepts certain Control Data 3000 
series FORTRAN statements, such as ENCODE, DECODE, BUFFERIN, and BUFFEROUT. 

The memory layout of the compiler is shown in Figure 1-1. The compiler 
routines are loaded into memory at location RA, and occupy 24,000 
locations. Memory space for the compiler buffers and tables, which 
require approximately 63 OOg locations, is allocated downward from 
location FL. The minimum space required by the compiler is therefore 
approximately 32,300g locations. Unless adequate space has been res- 
erved for the compiler (by specifying the proper value on the job card), 
the compiler will exit without attempting to compile. 

The Input and Output buffers are used by the compiler in conjunction with 
the Chippewa Operating System's CIO peripheral package to read in source 
cards and to list the source and object programs. The transmittal of 
data between the various buffers is illustrated in Figure 1-2. Source 
cards from the input file on the disk are read into the Input buffer, 
which is lOOlg words in length. As source cards are processed they are 
transferred, one at a time, into a lOg-word card buffer. Within the 
card buffer, the source card is examined to determine if it is a state- 
ment card or a comments card. A statement card is transmitted to the 
string buffer, where it is initially packed one character per word, and 
another card is brought to the card buffer from the Input buffer. If 
the next card is a continuation card, it too is transferred to the 
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string buffer. This process is repeated until an entire statement has 
been loaded into the string buffer. Since the size of the string buffer, 
in which a statement is initially packed one character per word, is 
2460g or 1328^Q, the number of continuation cards is limited to 19. All 
source cards, including both statement cards and comments cards, are 
transmitted directly from the card buffer to the Output buffer for sub- 
sequent listing. Depending upon the mode of compilation, object code 

instructions may be converted and placed in the line buffer (10^ words), 

8 
and from there transmitted to the Output buffer for listing. 

Once a statement has been transmitted to the string buffer, the first 
four characters of the statement are examined to determine the statement 
type, and iihe ai^propricicc 3ui*roiitine is calie<i to process the statement. 
Since the ^Ji. ir.g Durier is packed one character per word, in most cases 
uae next step is to assemble the contents of the string into a sequence 
of variables, constants and separators. Since memory assignments 
cannot be made until all source statements have been processed, variables 
and constants are replaced in the string by various types of tags, and 
the variables and constants stored in the compiler tables. (The compiler 
tables are expanded as entries are made.) The statement is then analyzed 
and the generated object instructions are packed one instruction per 
word. In all instructions referencing memory, the K portion of the 
instruction will at this point contain a tag. Thus, during the 
compilation of a program, the generated object code expands upward from 
RA.+24000g, and the compiler tables expand downward from FL-6000^. When 
an END card is detected, the generated instructions are packed and memory 
assignments made. All tags other than those defining external references 
are replaced with addresses, and the compiler tables are reduced 
accordingly. Subsequent subprograms are read from the input file and 
compiled, the object code for each beginning where the object code of 
its predecessor ended. When the end of the input file is reached, 
library subroutines are loaded and all subroutine references are replaced 
with memory addresses. The compiled program is then written on the disk, 
and the compilation process terminated. Since the string buffer, card 
buffer, and line buffer are not required for the loading of library 
routines, the tables are moved up to overlay these buffers before the 
library routines are loaded (see Figure 1-2). 

In processing MACHINE or ASCENT subprograms, the compiler transfers source 
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cards to the string buffer in the manner described earlier. A subroutine 
is then called to process the assembly language record. Memory references 
are tagged, and the appropriate compiler tables entered. The assembled 
instructions are packed in the object program area. During the processing 
of the END card, the tags are replaced by memory addresses and constants 
are transferred from the appropriate table to the program area. 

COMPILER TAGS AND TABLES 

As constants, variables, subroutine and function names, and statement 
numbers are encountered in the processing of the source language state- 
ment in the string buffer, they are entered in one of the compiler tables 
and replaced in the string buffer by tags. The tags are entered in 
tables also, and their relative position within these tables corresponds 
to the table position of the constnat, variable, external name or state- 
ment number which the tag replaced. Many of the. compiler tables are 
used in pairs: the address -dependent quantity is entered in one table, 
and the tag which replaces it in the string buffer is also entered in 
the corresponding location in the following table. For example, the 
Constant Value Table (Table A) and the Constant Tag Table (Table B) 
are paired tables. When a constant is encountered in the source state- 
ment, it is converted to its binary equivalent and entered in the Constant 
Value Table. A Constant Tag is generated and entered in the string buffer, 
and also in the Constant Tag Table. Thus, if the constant was entered in 
location 35 of the Constant Value Table, the tag which replaced it in 
the string will be entered in location 35 of the Constant Tag Table. 

The nine different types of tags used by the compiler are uniquely 
identified by the value of the high-order five bits of the tag. Tags 
are advanced as they are assigned: the current value of each tag is 
maintained in a temporary (TGA, TGB, etc.). All tags, with the exception 
of library tags, are re-initialized prior to the ccmpilation of each 
subroutine. Library tags are initialized only when the compiler is 
first loaded. Tags are usually advanced by one, although they may be 
advanced by two when a double -precis ion or complex value is entered in 
a table. Library tags are advanced by IOOq. The types of tags used by 
the compiler, and the numeric ranges which these tags may assume, are 
listed below. 
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tag number as specified in the low-order 15 bits of the tag. The tag 

number as given in the low-order 15 bits may range from to 17777 . 

8 
Thus, the compiler permits up to 8192 tags of each type. 

Constants, variables, subroutine and function references, and statement 
numbers are entered in the compiler tables when they are encountered in 
the string buffer, as are the tags which replace these quantities. There 
are 26 of these tables. The location of these tables is shown in the 
compiler layout illustration of Figure 1-1. The size of each table is 
initially set at lOg, words: as tables are filled, they are expanded 
by lOg words: tables at lower memory locations are moved down to provide 
room for the increase. Associated with each table is a temporary which 
contains the parameters required to enter, search, and expand the tables. 
The format of these temporaries (which are labelled in the compiler as 
TBA, TBB, etc.) is shown below. 



TBn 




Ci 



^^ parameter 
word address 



36 



starting 
address 



18 



next entry 
address 



Note that this word contains its own address. This permits table scanning 
routines, which are entered with this word in an X register, to readily 
obtain the parameter word for the succeeding table in memory (i.e., para- 
meter word address + 1 = parameter word address for the succeeding table). 
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The format of the table entries is shown in Figure 1-3. Note that some 
tag tables may hold more than one type of tag. Although there are 26 
tables, several tables are used as paired tables (see table descriptions) 
and so, counting these tables as single multi-word entry tables, we may 
consider the compiler tables to be functionally fourteen in number. 

The compiler tables, and the manner in which the tags and tables are 
used in the compilation process, are briefly described below. 

Constant Value Table ; 

Constant Tag Table : When a constant is encountered in the translation 
of a source language statement, it is converted to its equivalent binary 
form and entered in the Constant Value Table. A Constant Tag (K-tag) 
is generated, and entered in the corresponding location in the Constant 
Tag Table. The Constant Tag replaces the original constant in the string. 
The instruction compiled to fetch the constant will be of the form SAi = 
K-tag. Constants which are integer or octal in mode, and less than 
2 -1 in absolute value, are not entered in the Constant Value Table 
(unless they are subroutine arguments). The instruction compiled for a 
constant of this type will be of the form SXi = K, where K is the constant 
value. The Constant Value Table is also used to store format statements 
during compilation. The format descriptors are packed in consecutive 
words of the Constant Value Table, 10 characters per word, and a Constant 
generated and entered in the Constant Tag Table for each word. Sub- 
sequent references to the format statement will be compiled with the 
Constant Tag associated with the first word of the format statement. 
Prior to entering a constant in the Constant Value Table, the table is 
scanned to determine if a constant of the desired value has been defined 
earlier and, if so, the tag associated with the earlier entry is used 
rather than generating a new tag and a new entry. 

Temporary Tag Table ; 

Permanent Tag Table ; These tables are most commonly used when a source 
program statement references another part of the program which has not 
yet been compiled, e.g., a GO TO n statement where statement n has not 
yet been processed. Reference points within the compiled program are 
defined by program tags (A- tags). The Temporary Tag Table provides a 
means of recording references to points as yet undefined in the program: 
The manner in which this is accomplished is illustrated in Figure 1,4. 
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Function Name Table ; 

Function Ta^ Table ; When an arithmetic statement function is encountered, 
the function name is entered in the Function Name Table, and a Function 
Tag is generated and entered in the Function Tag Table. Subsequent 
references to this function name are replaced in the string by the 
Function Tag. When this tag is processed, instructions are compiled to 
pass the arguments, and then an RJ F-tag is compiled to enter the 
coding compiled for the arithmetic statement function, 

DO Number Table ; 

DO Parameter Table ; When a DO statement is encountered, the statement 
number which terminates the DO loop is entered in the DO Number Table. 
Instructions are then compiled to initialize the DO index. The address 
of the SA6 instruction compiled to store the initial value in the index 
(i.e., the index store), and the Variable tags (or constants) for the 
increment and limit values are stored in the DO Parameter Table. Each 
time a statement number is processed, the DO Number Table is scanned to 
determine if the statement number terminates a DO loop. If it does, 
the entry in the DO Parameter Table corresponding to the statement number 
is obtained, and the limit and increment tags (or constants) used to 
compile the index increment and test instructions. When the index 
store instruction was compiled, it was tagged with a Program tag (A- 
tag). In processing the statement number which terminates the DO, 
the address of the index store instruction is obtained from the DO 
Parameter Table entry, and a PL or NG A-tag instruction compiled to 
provide the loop return. 

Statement Number Table ; 

Statement Tag Table ; Whenever a statement number is encountered in a 
source language statement, it is entered in the Statement Number Table 
(unless previously entered), and a tag is entered in the corresponding 
entry in the Statement Tag Table. This tag may be a Statement Tag, a 
Program tag, or a Constant tag. If the first reference to the state- 
ment number defines it (i.e., if it is first encountered in the 
statement number field), a Program tag (A-tag) is entered in the State- 
ment Tag Table. This Program tag will also be used to tag the first 
compiled instruction for the statement which had this number. The case 
where the statement number is referenced before it is defined was discussed 
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earlier (see Figure 1.4). In this case^ a Statement tag (H-tag) is. 
generated and entered in the Statement Tag Table. This tag is later 
equated to a Program tag through the use of the Temporary and Permanent 
Tag Tables. If the statement number refers to a format statement, a 
Constant tag is entered in the Statement Tag Table. This Constant tag 
defines the starting location of the format statement in the Constant 
Value Table. 

Variable Name Table : 

Variable T ag Table ; When a variable is first encountered in a source 
program, the variable name is entered in the Variable Name Table, and 
a tag is entered in the corresponding location in the Variable Tag 
Table. If the variable is not dimensioned, a Variable tag (V-tag) is 
generated and entered in the Variable Tag Table. If the variable is 
first encountered in a DIMENSION statement, an Array tag (W-tag) is 
generated and entered in the Variable Tag Table. Should the variable 
be an argument in a subroutine, a Program tag is entered in the Variable 
Tag Table. This Program tag will indicate where this value is located 
in the subroutine argument list which follows the subroutine entry point. 

Common Na me Table : When a COMMON statement is encountered, it is 
entered in the Common Name Table to be subsequently processed when the 
END statement is encountered. Common block names appear in the lower 
42 bits, while common variable names appear in the upper 42 bits. 

Array Tag Table ; 

Array Parameter Table: When a variable is encountered in a DIMENSION 
statement, the variable name is entered in the Variable Name Table, and 
an Array tag is entered in the corresponding entry in the Variable Tag 
Table. This Array tag is also entered in the Array Tag Table, while the 
dimension parameters are entered in the corresponding location in the 
Array Parameter Table (see Figure 1.3 for the format for 1, 2, and 3- 
dimensional arrays). If the dimensions are variables, the Array 
Parameter Table will contain a Program tag (A-tag) for each dimension 
parameter. This program tag will indicate where this value is in the 
argument list which follows the subroutine entry point. If the dimensions 
are constants, the Array Parameter Table will contain the values of the 
dimensions and (for 3-dimensional arrays) dimension product. 
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Data Statement Table ; When a DATA statement is encountered, it is 
partially translated (i.e., variables are replaced by tags, constants 
are converted, etc.) and entered in the Data Statement Table to be 
subsequently processed when the END statement is encountered. 

Equivalence Second Name Table ; 

Equivalence First Name Table ; 

Equivalence Bias Table ; When an EQUIVALENCE statement is encountered, 

the variable names and bias values specified in the statement are 

entered in the equivalence tables. The equivalence tables are processed 

v?hen the END statement is encountered. 

Subroutine Name Table ; 
Subroutine Tag Table ; 

Subroutine Parameter Table ; When a SUBROUTINE, FUNCTION, or CALL 
statement is encountered, or when a function subprogram reference is 
found, the subprogram name is entered in the Subroutine Name Table. 
A Library tag (L-tag) is generated and entered in 'the corresponding 
location in the Subroutine Tag Table. When the subprogram is compiled, 
the. length of the compiled code, the total length (including compiled 
code, constants, local variables, etc.), the starting address, and the 
number of arguments are assembled into a single word and this word is 
entered in the Subroutine Parameter Table entry which corresponds to the 
subroutine name. The first entry made in each of these tables is for 
the main program. 

Common Block Table ; The Common Block Table is one of the tables in which 
entries occupy two consecutive locations. When the COMMON statement 
is first encountered, the common name and the block name are entered 
in the Common Name Table. During the processing of the END statement,' 
the block name, together with the starting and ending address of the 
block, is entered in the Common Block Table in the format shown in 
Figure 1.3. 

Program File Name Table ; When a PROGRAM card is encountered, the argu- 
ments on the card are entered in the Program File Name Table in two 
consecutive words. The first word contains the file name and the address 
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of the CIO parameters for the buffer assigned (the CIO parameters 

occupy the first lOg words of the buffer area). The second word of 

the Program File Name Table contains the buffer length for the file. 

If no buffer length is specified, this length entry is set to 2010^. 

8 
(This includes the space occupied by the CIO parameters.) 

Argument Name Table ; 

Argument Tag Table : Although the nominal purpose of these tables is to 
assist in the processing of arithmetic statement functions, the Argument 
Name and Argument Tag Tables serve as compiler utility tables, and are 
used for a variety of purposes. For example, these tables are used in 
processing the EQUIVALENCE statement, in computing array references, and 
in processing the END statement. 

While most of the compiler tags define quantities appearing in a source 
statement, the program tag (A-tag) is used to define locations within 
the compiled object code. During the compilation process, the generated 
instructions are packed in the upper 30 bits of a word, one instruction' 
per word. 'All address fields in the generated instructions contain 
tags of various types. When the END statement is encountered, these tags 
are replaced with addresses and the object code is then compressed. 
When instructions are compiled for a statement which has a statement 
number, a program tag is entered in the low-order 18 bits of the word 
containing the first instruction compiled for this statement. For 
example, a statement such as I = might be compiled as 



SX6 = 



SA6 = V-tagi 



if it were an un-numbered statement. If, however, this statement had 
a statement number, it might be compiled as 



SX6 = 



SA6 = V-tag 



A-tag 



This program tag serves two purposes. First, a source program transfer 
of control to the numbered statement will result in the compilation of 
a jump instruction in which the address field contains this program tag. 
When the END statement is processed and the object code is compressed. 
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the program tag in instructions referencing the first instruction compiled 
for the numbered statement will be replaced with the address of this 
first instruction. Secondly, since the appearance of a program tag in 
the low-order bits of a word containing a compiled instruction indicates 
that this instruction is referenced elsewhere in the program, the 
instruction must be forced to the upper parcel (s) of a word when the 
object code is compressed. 

Program tags are also used to define subroutine parameters. Since all 
tags (with the exception of library tags) are initialized at the beginning 
of subroutine compilation, there is a fixed relationship between the value 
of the program tag and the parameter number, as shown below. 



Subroutine Wo 


rd No. 


Contents 


Program Tag 


1 




Subroutine Name 


L00002 


2 




Number of Arguments 


L00003 


3 




Parameter 1 


L00004 


4 




Parameter 2 


L00005 



n Parameter m L0000(M+3) 

n+1 Entry Line LOOOOl 

Since the first six parameters (i.e., argun^nt addresses) of a subroutine 
are also passed in a B register, there is a fixed relationship between 
the parameter number, the register in which it appears, and the program 
tag assigned to the parameter. 

Register Associates 

To assist in minimizing the number of fetches generated, the compiler 
utilizes 19 temporaries called Register Associates. These teiiq>oraries 
are associated with registers A0-A5, B1-B7, and X1-X6. As instructions 
are compiled for a source language statement, these Register Associates 
are updated to reflect the contents which the X, A, and B registers will 
have during the execution of the object program. For exanq)le, suppose 
an SA2 instruction is compiled to fetch a variable. The address field 
of the SA2 instruction will contain a variable tag (V-tag) which will be 
replaced by an address during the processing of the END statement. When 
this instruction is compiled, this variable tag is entered in the X2 and 
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A2 Register Associates, indicating that the X2 register contains the 
value of the variable while the A2 register contains its address. Before 
compiling a subsequent fetch, the Register Associates are examined to 
determine if the value is already available or, failing that, if the 
address is available and a 15-bit fetch instruction can be generated 
(i.e., in place of a 30-bit fetch instruction). Should subsequent 
instructions be compiled which use the X2 register as a result register, 
the X2 Register Associate will be cleared. 



Compiler Master Loop 

The flow chart for the compiler master loop is shown on pages A-1 and 
A-2 of Appendix A. The master loop may be considered as being composed 
of an outer loop and an inner loop. The outer loop controls program 
and subprogram processing, while the inner loop controls statement pro- 
cessing. The main functions of the compiler master loop are described 
below. 

After clearing the Chain and Error indicators, the 
compiler calls the peripheral processor package 
"CHK" to determine the status of the OUTPUT file. 
This status is subsequently used to determine what, 
if any, repositioning of this file is required* 
The compiler then picks up the field length from 
the AO register and, unless a field length of at 
least 32000q words was specified, immediately exits. 
If the specified field length was adequate, the 
Initialize for Input/Output (IIO) routine is called 
to set up the compiler buffers and to process the 
compiler arguments from the RUN card. These 
arguments are passed to the compiler in locations 
RA+2, RA+3, etc., during the loading of the compiler. 
The order in which these arguments appear, and the 
value assigned by the compiler if an argument is 
omitted, are shown in Figure 1-5, IIO also enters 
the string buffer starting address (FL-6000) in the 
AO register, where it will remain for the duration 
of compilation. Next, the Read Next Card (RNX) 
subroutine is called to bring the first card to the 
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Card .Buffer. This routine is used throughout the 
compiler to transfer a card from the Input Buffer 
to the Card Buffer and, if the Input Buffer is empty, 
to initiate a CIO call to fill the buffer. The 
Initialize Program Tables (IPT) subroutine is called 
to initialize the Library tag, set the Short File 
Start and Long File Start, and to set up the Subroutine 
Parameter, Common Block, and Program File Name Tables. 
These tables are initialized only at the beginning 
of compilation: all other tables, with the exception 
of the Argument Name and Argument Tag Tables, are 
initialized each time a program or subprogram is 
compiled. The Argument Name and Argument Tag Tables 
are initialized as required. 



SUBPROGRAM 
INITIALIZATION 



The Initialize Subroutine Tables (1ST) routine is 
called next. This subroutine initializes the 
remaining tables and tags, and sets A7 to the Short 
File Start address. During compilation, the A7 
register will always contain the address of the last 
instruction compiled and X7 will be used to store 
instructions as they are compiled. (Note: the 
return to compile the next subroutine is made to 
this point in the master loop.) RNX brought the 
first card into the card buffer: this card is 
examined to determine if it contains a + or - in 
column 1. If it does, then the following program or 
subroutine is not a source program but a binary deck, 
and control is transferred to the END statement 
processor which will load the binary object deck, 
extract any external references, and enter these in 
theSubroutine Name Table. If the first card does 
not contain a + or - in column 1, the Assemble FORTRAN 
Statement (AFS) subroutine is called. This subroutine 
transfers source cards from the card buffer to the 
string buffer, packing one character from the card 
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into one word in the string buffer. APS also trans- 
mits the source card to the Output Buffer (via the 
WNX routine) for listing. Next, AFS brings the 
next card to the card buffer and examines it to 
determine if it is a continuation card. If it is, 
is also is loaded in the string buffer. If the next 
card is a comments card, APS transmits it to the 
Output Buffer. This process is repeated until AFS 
finds a non-comments, non-continuation card in the 
card buffer. 



DETERMINING 
COMPILATION 
MODE 



The first. seven letters of the statement assembled in 
the string buffer by AFS are examined to determine if 
they are ASCENTF, MACHINE, or FORTRAN. If these 
letters are ASCENTF or MACHINE, the subprogram mode 
indocator (and subsequently the program mode indicator, 
if this is a main program) is set to -2 or -1, 
respectively. If these letters are FORTRAN, the next 
two letters are examined to determine if they are II, 
IV, or VI, and the mode indicator (s) set accordingly. 

FORTRAN, a FORTRAN IV compilation is assumed. (This 
mode is set by the Initialize Program Tables subroutine.) 
If these letters appeared on the first card, they are 
blanked out and the next seven letters are assembled. 
These letters are compared with entries in the table 
of Program Title Types: PROGRAM, SEGMENT, SUBROUT, 
FUNCTIO, END, and BLOCKDA. If not found in this 
table, the letters are examined to determine if they 
are the FUNCTION predecessors DOUBLE PRECISION, DOUBLE, 
READ, INTEGER, LOGICAL, or COMPLES. ^f they are, the 
function type indicator is set acfcordingly, these 
letters are blanked out, and the next seven letters 
assembled and checked. The header card is passed on 
to the inner portion of the compiler's master loop 
for processing. If the card was a PROGRAM card, the 
Program/Subprogram Indicator is set to zero: otherwise, 
it is set to a non-zero value. This indicator is 
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examined by the END statement processor to deter- 
mine if tags should be replaced by absolute memory 
addresses or by memory addresses relative to the start 
of the subprogram when subroutines are separately 
compiled. 



STATEMENT 

PROCESSING 

INITIALIZATION 



The statement processing portion of the compiler 
master loop is now entered, (The program title card, 
or header card, is passed on to this portion of 
the compiler master loop for processing.) Various 
statement- related flags and indicators are cleared, 
and a program tag is generated and saved as the 
Current Program Tag. The Get Statement Number (GSN) 
routine is called to assemble the statement number, 
if any, associated with this statement. Processing 
of this statement number will be performed after this 
statement has been compiled. 



STATEMENT 
RECOGNITION 



Column 1 of the source card is checked to see if it 
contains an F (FORTRAN II external function) and, 
if it does, the Process Function Name (FUN) sub- 
routine is called to process the function. If the 
statement is not a FORTRAN II external function, the 
first two letters are examined and, if these letters 
are DO. If they are, the Sense DO Statement (SDO) 
subroutine is called to determine if the statement 
is a DO statement and to initiate DO statement 
processing. If the statement is not a DO statement, 
the Sense Formula (SFO) subroutine is called to 
determine if the statement is an arithmetic statement 
and to initiate arichmetic statement processing. If 
the statement is not a FORTRAN II external function, 
a DO statement, or an arithmetic statement, the first* 
four letters of the statement are assembled and used 
to scan a Statement Letter group Table. If the state- 
ment is not found in this table, and the four letters 
are not TYPE, a Format Error diagnostic is generated. 
If the statement is found in this table, the Current 
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Jump and Continue indicators are processed, and a 
jump table used to transfer control to the appropriate 
statement processing routine, (Note that the 
relative location of the statement within the State- 
ment Letter group table indicates if the statement 
is executable or non- executable. 



RETURN FOR 

NEXT 

STATEMENT 



Statement processing routines generally enter the 
Process Statement Number (PSN) subroutine upon com- 
pletion of statement processing, and this routine 
in turn returns control to the compiler master 
loop. If the program title card called for a 
MACHINE or ASCENTF assembly, the Process Machine/ 
Ascent Records (MAA) subroutine is called. 
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CHIPPEWA FORTRAN COMPILER - RUN 
Section 2 
STATEMENT PROCESSING 



INTRODUCTION 



At the time the statement processing routine is entered from the compiler 
master loop, the source language statement in the string buffer is packed 
one character per word. Most statement processing routines call the 
Normalize Statement (TAB) subroutine. The TAB subroutine (see TAB 
description in Section 3) assembles the contents of the string buffer 
into a series of words containing variable, constants (which may occupy 
more than one word) and separators. The TAB subroutine also enters the 
format statement in the Constant Value Table. Next, the Translate 
Individual Quantities (TIQ) subroutine is called. TIQ translates the 
contents of the string buffer into a sequence of tags, separators, and 
constants which can easily be manipulated by the statement processing 
routines. The TIQ subroutine is discussed in Section 3. 

There are two indicators which are tested during the processing of most 
executable statements as well as in the compiler master loop. One of 
these is the Current Jump Indicator, which is used in the processing of 
arithmetic statement functions and logical IF statements. Since arith- 
metic statement functions may occur anyplace within the source program, 
it is necessary -to compile a jump over the code generated for a function. 
Therefore, before compiling the instructions for the function, a 
Statement Tag (H-tag) is generated and entered in the Temporary Tag 
Table, the corresponding entry in the Permanent Tag Table is reserved, 
and an 0400 H-tag instruction is compiled for the jump over the generated 
code for the function. The Current Jump Indicator is set to the address 
of this jump within the compiled code. Similarly, in the case of the 
Logical IF statement, a jump instruction over the coding generated for 
the TRUE condition must be compiled. In this case, an 0200 H-tag is 
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compiled and the Current Jump Indicator set to the ad^iress of this jump 
instruction. The Current Jump Indicator is carried along during the 
processing of non-executable statements and other arithmetic statement 
functions. When an executable statement is encountered, a Program tag 
is used to tag the first instruction compiled for this statement. The 
address contained in the Current Jump Indicator is used to obtain the 
jump instruction, and the Statement tag (H-tag) is extracted from the 
jump instruction. The Temporary Tag Table is then searched for the 
entry containing this tag, and the Program tag (A-tag) entered in the 
corresponding location in the Permanent Tag Table, thus equating the 
two tags. The use of the Current Jump Indicator is illustrated in 
Figure 2.1. 

A second indicator which must be examined when a statement is compiled 
is the Continue Indicator. If a CONTINUE statement is encountered which 
does not terminate a DO loop, the Continue Indicator is set. This 
indicates that the A-tag which otherwise would be generated for the 
CONTINUE statement is instead to be assigned to the first executable 
statement following the CONTINUE statement. This is acccMnplished by 
the compiler master loop which, during the initialization performed for 
each statement, generates a Program tag and enters it in the X7 register, 
thus tagging the first instruction coapiled for the next statement. If 
-the Continue Indicator is set, this tag is left in X7 for subsequent 
processing. If the Continue Indicator is not set, the X7 register is 
cleared before a transfer to the statement processing routine takes place, 



HEADER CARDS 

Five different types of header cards are acceptable to the FGKIBAN compiler; 
PROGRAM, SEGMENT, FUNCTION, SUBROUTINE, and BLOCKDATA. All but the last 
may have formal parameters included on the card, BLOCKDATA is a special 
type of subprogram which contains only declarative statements, PROGRAM 
and SEGMENT are closely related because the name appearing on the card 
of either is the identifying name of file on the disk containing the 
object program as the first record. Each of these files may contain many 
SUBROUTINE and/or FUNCTION subprograms. 
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H-TAG IS ENTERED IN THE TEMPORARY TAG TABLE 

•A-TAG IS ENTERED IN THE CORRESPONDING LOCATION 
IN THE PERMANENT TAG TABLE 




USE or THE CURRENT JUMP 



PROGRAM and SEGMENT differ in that numbered or blank common and the l/O 
buffers are initialized with a PROGRAM declaration but not with SEGMENT. 
Both are compiled to be read in from the disk beginning at RA. Any SEGMENT 
called will completely overlay the main program and its subroutines, but 
the I/O buffers and common will not be disturbed. A SEGMENT may be called 
repeatedly by any other segment or from the main file, and arguments may be 
transferred through COMMON. Any SUBROUTINE or FUNCTION referenced within a 
SEGMENT must be compiled with it because no portion of the main program or 
previous segment is available for use. The maximum number of I/O files re- 
ferenced by the main program or any segments called must be declared on the 
PROGRAM card because only in this way is the buffer reserved for the file. 
All segments to be chained must be compiled with the same file names. 

If no length is specified on either the RUN card or PROGRAM card for the 
buffers, then 2010^ words are reserved for each file declared. An individual 

o 
buffer length may be specified on the PROGRAM card which will override that 

specified on the RUN card, but neither length may be less than lOOlg words. 

Equivalenced files will utilize the same buffer. Instructions are compiled 

to initialize buffer parameters, to set unused memory space to indefinites 

and blank or numbered common area cleared to zero upon encountering the 

PROGRAM card. 

The mode of the FUNCTION is set from the preceding type declaration or by 
checking the first character of the name. This mode must agree with the 
type from a previous reference or the diagnostic "FUNCTION TYPE ERROR" 
results. An "ARGUMENT COUNT ERROR" identifies a previous call requiring 
more arguments than are being compiled. All arguments on a SUBROUTINE or 
FUNCTION card receive a location tag pointing to a reserved word beginning at 
the third relative word of the subprogram. Since the addresses of the first 
six arguments are passed to the subprogram via index registers B1-B6, instru- 
ctions are compiled to pack the address, three per word, into two temporary 
words. Bl and B4 occupy the lower 18 bits of the two words with B2 and B3 
packed in the next 18 bit portions of the first word. B5 and B6 reside in 
the second word in the same relation as B2 and B3. 

A more detailed discussion of this initialization process is contained 
in the Process Name and Arguments (PPG) subroutine description in 
Section 3. 
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DO STATEMENT PROCESSING 

In initialing the processing of a source language statement, the compiler 
master loop checks the first two letters of the FORTRAN statement to 
see if they are "DO". If they are, a routine called Sense DO Statement 
(SDO) is called to determine if the statement is actually a DO statement. 
The basic steps performed by SDO are tabulated in Figure 2.2. SDO 
scans the first part of the statement to determine if it has the sequence 



IdoI number jvariable j= 1 



If this sequence is found, SDO scans the Variable Name Table for the 
variable and, if found, examines the corresponding tag from the Variable 
Tag Table to determine if the mode indicator for the variable is a 2 
(integer mode). If the variable is not in the Variable Name Table, the 
first letter of the variable is checked to determine if it is I, J, 
K, L, M, or N. If the above sequence is found, and if the variable is 
an integer variable, SDO assumes that the statement is a DO statement, 
and proceeds with DO initialization processing. 

The TAB subroutine is called to normalize the statement. Since executable 
instructions will be compiled to initialize the DO loop, the Current Jump 
and Continue indicators are processed. If the DO statement itself was 
numbered, a Program Tag (A-tag) is entered in X7 to tag the first 
executable instruction of the DO statement. Next, the TIQ subroutine 
is called to translate the statement into a sequence of separators, 
tags, and constants. TIQ will make any necessary entries in the 
Variable Name and Constant Value Tables. 

The CDI (Compile DO Initial Instructions) subroutine is then called to 
compile the DO loop initialization instructions. The basic steps 
performed by this routine are illustrated in Figure 2.2. CDI enters 
the statement number (of the DO termination statement) in the DO Number 
Table (Table G), and then examines the string entry for the initial 
value (i.e., n^ ) to determine if the initial value is a variable or 



1 



a 



constant. If the initial value is a constant, CDI compiles an SX6 = K 
instruction to set the initial value. Should the initial value be a 
variable (i.e., as indicated by a variable tag in the string) CDI calls 
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SDO (SENSE DO STATEMEN T) 

• SENSE LETTERS "D|?)" 

• SENSE NUMBER IN NEXT 
FIELD 

• SENSE VARIABLE IN 
NEXT FIELD 

• SENSE VARIABLE MODE 

• SENSE EQUAL SIGN 

• NORMALIZE STATEMENT 

• TRANSLATE STATEMENT 

• CALL GDI TO COMPILE 
INITIAL INSTRUCTIONS 




00 

c 

H 



ro 



\y' CDI (COMPIL E D0 INITIAL INSTRUCTI ONS) 



• ENTER STATEMENT NUMBER IN D0 
NUMBER TABLE (TABLE G) 

• IF Xi^ IS A CONSTANT: 

COMPILE SX6 = CON TO INITIALIZE 
THE INDEX 



IF n. IS A VARIABLE: 

COMPILE SAi == V-TAG OR SA^ = B. 
TO FETCH INITIAL VALUE UNLESS 
ALREADY AVAILABLE IN AN X REGISTER 

• COMPILE BX6 = X^ TO BRING INITIAL VALUE 
TO X6 (UNLESS ALREADY AVAILABLE IN X6) 

• COMPILE SA6 - V-TAG TO STORE INDEX 

• ASSEMBLE ADDRESS OF INDEX STORE, THE 
INCREMENT TAG (OR CONSTANT), AND THE 
LIMIT TAG (OR CONSTANT): ENTER IN 
THE D0 PARAMETER TABLE (TABLE H) 



DO STATEMENT PROCESSING 



the CIR (Compile Read Instructions) subroutine to compile a fetch instruction 
for the initial value. It is possible that the variable used as the 
initial value may (at execution time) be available in an X register. 
In this case, CIR will not generate a fetch instruction, but will supply 
GDI with the number of the X register in which the variable can be found 
at execution time. Whether or not a fetch instruction had to be compiled, 
CDI next compiles a BX6 = X^ instruction to bring the initial value to a 
write register. 

CDI next compiles an SA6 = Variable Tag instruction to store the initial 
value in the index location. A program tag (A- tag) is set in the lower 
half of the word in which this compiled instruction is stored, since 
this instruction is the return point from the bottom of the DO loop. 
Next, CDI examines the string to determine if an increment has been 
specified. If an increment has not been specified, the increment value 
is set to 1, If there is an increment entry in the string buffer, CDI 
examines the entry to determine if it is a variable tag for an integer 
variable or a constant. If it is not, an error exit occurs. The limit 
field is similarly checked. An example of the initial code compiled 
for the DO is shown in Figure 2.3. 

Finally, CDI assembles the address of the index store instruction, the 
increment tag or constant, and the limit tag or constant into a single 
word (see Figure 1-3 for the format), and enters this word in the DO 
Parameter Table, (Table H). When the statement number of the statement 
which terminates the DO loop is encountered, these parameters will be 
used to compile the index test instructions. Processing of the DO 
is now complete, and so CDI jumps to PSN (Process Statement Number) to 
process the statement number, if any, associated with the DO statement, 
and from there control is returned to the compiler master loop for 
processing of the next statement. 

Each time the compiler master loop processes a source statement, it calls 
the GSN (Get Statement Number) to perform the initial statement number 
processing. GSN determines if the statement which is about to be 
processed has a statement number, and, if so, extracts this statement 
number from the string buffer. GSN then scans the Statement Number 
Table and the DO Number Table for this statement number: if the 
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DO LOOP INITIALIZATION CODE 



■kMMMMMnMMaoRmsaaBsauiarida 



1. SET INITIAL VALUE 



rsX6 = C0N }^///ZPZ\ 
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nj^ = VARIABLE 



OR 



f Bxe^x, y/////A 
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IN AN X REGISTER 



OR 
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y////^ 


BX6 = X^ 
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n, = VARIABLE, INITIAL VALUE 
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B REGISTER 



2. STORE INITIAL VALUE IN 
INDEX 



< 



SA6 = V-TAG 



A-TAG 



OR 



SA6 == B 



A-TAG 




PROGRAM TAG (A-TAG) 
MARKS LOOP RETURN POINT 



IF INDEX ADDRESS WAS AVAILABLE IN 
A B REGISTER 



statement number is found in both tables, the DO termination indicator 
is set. The instructions for this statement are then compiled (unless 
the statement is a CONTINUE statement) and then the PSN (Process State- 
ment Number) is called to process the statement number. 

PSN checks the DO termination indicator: if this indicator is not set, 
PSN scans the Statement Number Table for the statement number and, if not 
found, enters the statement number in the Statement Number Table. The 
current program tag (A-tag) is entered in the Statement Tag Table, and 
the PDT (Process DO Tables) subroutine is called to compile the index 
test instructions. PDT first checks the Continue Indicator and the 
Current Jump Indicator, and processes these indicators if they are set. 
Next, the DO Number Table is scanned and, when found, the corresponding 
entry in the DO Parameter Table is saved. This entry is then deleted 
from the DO Number Table. The address of the index store instruction is 
then compared with the start of the group of instructions compiled for 
this statement (i.e., the DO termination statement) to determine if 
this is a one-statement DO. If so, an indicator is set, since one- 
statement DO loops are later analyzed to determine if the generated 
object code can be improved. 

Next, the index store instruction was examined to determine if it was 
an SA6 = Bj instruction. If it was, the index address was the parameter 
of the subroutine, and so a Program tag can be formed by adding the B 
register number to a base tag value of 200003 (see page 1-14). If the 
index store was an SA6'= V-tag instruction, the Variable tag (V-tag) 
is extracted from the instruction. The Variable tag or Program tag 
which defines the location of the index is passed to the Compile Read 
Instructions (CIR) subroutine. CIR will generate a fetch instruction 
(if necessary) to fetch the index value. The increment parameter is next 
extracted from the DO Parameter Table entry, and examined to determine if 
it is a Variable tag or a constant. If the increment parameter is a 
Variable tag, the Analyze Loop Conditions subroutine is called to 
determine register availability, and the CIR subroutine called to 
compile a fetch instruction. This process is repeated for the limit 
parameter. 
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RUN COMPILER 
DO STATEMENT PROCESSING 
SUBROUTINE FLOW 



NOTE I: ADF, SCT, AND SCM 

SUBROUTINES NOT SHOWN 



MOTE 2: SUBROUTINES BEYOND THE 
2nd LEVEL MAY NOT 
NECESSARILY BE CALLED 
IN NORMAL Dj» PROCESSING 



When the index, limit, and increment parameters have been processed and 
any necessary fetch instructions have been compiled, PDT compiles the 
index increment instruction. If the increment parameter is a constant, 
this will be an SX6 = Xj + K instruction, while if this parameter is a 
Variable tag, an SX6 = Xi + Xj instruction is compiled (since a fetch 
instruction was compiled to bring the increment to Xi). 

Next, the limit parameter is examined to determine what type of index 

test instructions must be generated. If the limit parameter is a constant, 

an "SX6 = X6 - K, NG X7 A-tag" sequence is compiled. If the limit 

parameter is a Variable tag, then an instruction has been compiled to 

bring the limit value to an X register, and so an "1X7 = Xi - X6, PL X7 A-tag" 

sequence is compiled. In either case, the A-tag is that initially 

assigned to the index store instruction. 

If this is a one-statement DO loop, the Analyze One-Statement DO sub- 
routine is called to attempt to improve the object code generated for 
the statement. The DO Number Table is then scanned again to determine 
if this statement appears again (remember that entries in this table are 
cleared as they are processed). If this statement number appears again 
in this table, then a nested DO loop is indicated, and so PDT repeats 
the process described. When all entries with this statement number in 
the DO Number Table have been processed, PDT exits to PSN, and from there 
-control is returned to the compiler master loop. 

ABITBMETIG STATEMENT PROCESSING 

Prior to searching the table of statement types, the compiler master loop 
calls the Sense Formula (SFO) subroutine is called to determine if the 
statement is an arithmetic statement and, if it is, to initiate statement 
processing. SFO determines if the statement is an arithmetic statement 
function, in which case the Compile Function Definition (CFF) subroutine 
is called, or a replacement type arithmetic statement, in which case 
control is passed to the Compile Normal Formula (CNF) subroutine. 

Statement evaluation by the CFF subroutine and by the CNF subroutine is 
similiar in many respects. The basic steps in the evaluation process are 
tabulated in figures 2.5 and 2.6. Both CFF and CNF call the TAB subroutine 
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CNF -COMPILE NORMAL FORMULA: BASIC STEPS 
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• CALL "TAB" TO NORMALIZE THE STATEMENT 



CALL "TIQ" TO TRANSLATE THE STATEMENT INTO 
A SERIES OF SEPARATORS AND TAGS 



• CALL "UNP" TO ELIMINATE PARENTHESIZED EXPRESSIONS 

• CALL "CXP" TO COMPLETE EVALUATION OF THE EXPRESSION 



SET THE RESULT MODE TO AGREE WITH THE MODE OF THE TERM 
ON THE LEFT SIDE OF THE EXPRESSION 



• COMPILE INSTRUCTIONS TO STORE THE RESULT 



I 



CFF - COMPILE FUNCTION DEFINITION: BA SIC STEPS 

• SET UP THE CURRENT JUMP 

• ENTER EACH FUNCTION ARGUMENT IN THE ARGUMENT NAME TABLE (TABLE I) 

ENTER A TAG FOR EACH FUNCTION ARGUMENT IN THE ARGUMENT TAG TABLE (TABLE J) 

COMPILE A ZERO WORD FOR EACH ARGUMENT 

ENTER THE FUNCTION NAME IN THE FUNCTION NAME TABLE (TABLE E) 

ENTER A FUNCTION TAG IN THE CORRESPONDING ENTRY IN THE 
FUNCTION TAG TABLE (TABLE F) 

CALL "TAB" TO NORMALIZE THE STATEMENT 

CALL "TIQ" TO TRANSLATE THE STATEMENT INTO A SERIES OF SEPARATORS AND TAGS 

CALL "UNP" TO ELIMINATE PARENTHESIZED EXPRESSIONS 

CALL "CXP" TO COMPLETE EVALUATION OF THE EXPRESSION 

SET THE RESULT MODE TO AGREE WITH THE FUNCTION MODE 

COMPILE A JUMP INSTRUCTION TO THE FUNCTION'S ENTRY POINT 



OQ 
C 
H 



to assemble the statement in the string buffer into a series of variables, 
constants, and separators, CFF enters the function name in the Function 
Name Table and replaces it in the string with a Function tag. The function 
arguments are entered in the Argument Value Table and replaced in the string 
by function tags. The TIQ subroutine is used by both CNF and CFF to trans- 
late the constants and variables in the string into a sequence of tags, and 
to enter these values in the appropriate tables. In processing statements, 
the Function Name Table is searched for a variable before the Variable Name 
Table is searched. Thus, in processing an arithmetic statement of the 
replacement type, the Function Name Table will be empty and so the variables 
in the statement are determined to be active variables rather than dummy 
arguments. In processing an arithmetic statement function, statement 
variables will be found in the Function Name Table, indicating that these 
variables are dummy arguments. 

Both CNF and CFF call the Unpack Parentheses (UNP) subroutine to eliminate 
array references, function references, and parenthesized expressions from 
the statement. A simplified flow chart of the UNP subroutine is shown in 
figure 2.7. When UNP finds an array reference, it compiles the instruct- 
ions required to fetch the array element after scanning the statement to 
determine if this element has previously been referenced and is therefore 
available. If the parenthesized quantity is part of a function reference, 
UNP calls the CRF (Compile Function Reference) subroutine to construct the 
calling sequence for the function. If the parenthesized quantity is an 
expression, the Compile Expression (CXP) subroutine is called. CXP deter- 
mines the dominant mode of the expression and selects the proper subroutine 
to compile instructions for the evaluation of the expression and the con- 
version of the result to the dominant mode. 

When UNP has eliminated all parenthesized quantities from the statement, 
control is returned to CNF or CFF. These routines may call CXP directly 
to complete evaluation of the right-hand side of the statement. CNF and 
CFF then generate the instructions needed to store the result. In the case 
of CFF, instructions may be compiled to convert the mode of the result to 
the mode of the variable on the left-hand side of the statement, and a jump 
instruction to the function's entry/exit line is compiled. 

When statement compilation is complete, control is transferred to the PSN 

subroutine to process the statement number, and from there control is 

returned to the master loop, 

2-14 



UNP - UNPACK PARENTHESES 
(SIMPLIFIED FLOW CHART ) 
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Figure 2.7 
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INPUT /OUTPUT STATg-'IEITrS 

Upon encountering an input or output statement, the compiler generates a 
calling sequence for use by the execution time subroutines. There is no 
format cracking done during compilation, so all format diagnsotics are 
produced during execution. Each particular set of l/O statements, i.e., 
READ, WRITE, ENCODE, BUFFER IN, etc., use an individual execution time 
subroutine. These subroutines do their own processing within themselves 
and do not depend on a central or generalized routine for the I/O. All 
information necessary for the completion of the task is generated by 
the compiler and passed to the execution time routine with successive 
calls. 

In order for a central memory program to communicate with an external 
file, all information entering or leaving the program must pass through 
a buffer. For every I/O file, whether it be standard input or output, 
scratch tape, or data tape, used by the FORTRAN program, a declaration of 
the file name must be made on the PROGRAM card. Each file name causes 
a buffer with a minimum length of 1010 words or normally 2010 words to 
be reserved for its use. Any file that is not assigned to a special 
equipment via a control card will be assigned to the disk. The execution 
time subroutines use the system CIO (Circular Input/Output) for the 
physical transfer of data. 

All information written on 1" tape or binary data written on k" tape is 
recorded in blocks of lOOOB words (physical record). The terminating 
block of a transfer is called a short block whose size is between 1 and 
777B words. A logical record is defined as containing any number of 
physical records and terminated by a short block. Coded one inch tapes 
use packed display code with two consecutive characters whose value is 
zero terminating the records. These records may not be larger than 136 
characters long but are written on 1" tape in the aforementioned logical 
record scheme. Therefore, the system makes no distinction between coded 
or binary data when a one inch tape is involved. There is a difference 
on V tape. All coded information is translated to BCD and written in 
136 character physical records. In this case, a logical record is the 
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wame as a physical record. 

For a disk file, there is no specific record limit. The data is 
streamed out on the disk with a short sector (less than lOOB words) 
being the terminating factor of a logical record. Like the one inch tape, 
coded and binary information appear the same to the system. 

The compiler has I/O statement processors which decide from the form of 
statement which execution time routines are to be called. If a format 
statement is required, then the address of it must be available during 
exeuction. Since all l/O has to pass through a buffer, the address of 
this buffer must also be known. This information is compiled and sent to 
the subroutine in one entry. The I/O list is processed and one entry 
is made for each array or data item. It is during these entries that 
the format statement is cracked. A final entry .is made to signal th^ 
end of the list. 

The coded input statements (READ n, L; READ (i, n) L; READ INPUT TAPE i, 
n, L) call INPUTC. The file specified by "i" is read and the data "L" 
returns to the program according to the format "n". The following 
specifications are handled by INPUTC: E, F, D, 0, A, *, I, 1, X R 
L, P. Only with "F" conversion is a scale factor allowed. The format 
cracking utilized in INPUTC is flow charted in Appendix G, pages 1-5 . 
During compilation, the address of the format statement is set into B3 
to be passed to the subroutine. The address of a variable format is 
retrieved by assigning a variable tag to the format statement; thereby 
fetching the proper address during execution. 

Binary data may be read by READ (i) L or READ TAPE i, L. During 
execution, INPUTB is referenced to read file "i" and insert the data 
in "L". No special word count is reserved in the data itself. The 
number of words defined by L determines the number of physical records 
that are read. Binary data may be written on a file by WRITE (i) L or 
WRITE TAPE i, L. Either of these statements request OUTPTB to transfer 
the information from "L" to file "i". The number of words written by 
these statements must be greater or equal to the number of words read 
by the corresponding READ statement. 
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OUTPTC is the execution time subroutine called to write coded data on a 
file. The statements PRINT n,L; PUNCH n,L; WRITE (i, n) L; or WRITE 
OUTPUT TAPE i, n, L will all cause OUTPTC to be referenced. As with 
coded input, the format is cracked during execution. The types of 
format specifications allowed on output are: I, X, A, 0, H, /, F, E, 
D R L " P. There is little difference between the procedure of format 
cracking used by OUTPTC and INPUTC. 

ENCODE and DECODE statements are also implemented. Storage manipulation 
to transfer data under a specific FORMAT statement is all that is involved 
so no physical data file is referenced. Therefore, the list processor 
used by READ /WRITE compiles a calling sequence to the execution time 
subroutines OUTPTS and INPUTS. These subroutines work on the same 
format cracking scheme as OUTPTC and INPUTC. 

All the aforementioned statements result in the l/O being completed by 
the execution time subrout ines before control is returned to the 
central program. Therefore, the data is immediately available to the 
programmer after an l/O statement has been processed. However, the user 
may choose to buffer his own l/O in which case the BUFFER IN and BUFFER 
OTTTH ^4.^^^„^„t-c a-ro pvflilflhlp.. BTTFFERI and BUFFEO ("execution time sub- 
routines) are called, respectively, to initiate the transfer of data via 
CIO. In this case, the central processor is not released by a recall 
(RCL) request. Instead control is returned to the central program as 
soon as CIO has initiated the request. Any block of data, up to normal 
central memory restrictions, will be handled by these statements. Before 
using the data it is up to the user to check the status of the buffered 
unit by an IF (UNIT, i). This statement compiles a calling sequence 
to lOCHEK which is the execution time routine used for checking the 
status. 

The execution time subroutines receive all addresses from the program 
via index registers. A calling sequence is constructed by the compiler 
for each statement. Listed on the following page are the calling sequences 
compiled to be used during execution. 
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GALLING SEQUENGES 



READ, WRITE, PRINT, PUNGH 
First Entry 



Intermediate Entries 



Final Entry 



Bl * 

B2 = address of buffer parameter list or 

complemented address of variable 

tape number 
B3 = address of format statement 

Bl = address of data item or 

beginning address of array 
B2 = array length or 

Bl = -1 



ENCODE, DEGODE 
First Entry 



Second Entry 



Intermediate Entries 



Final Entry 



Bl = 

B2 = 

B3 = address of format statement 

B4 = character length 

Bl = beginning address of packed data 
B2 = 

Bl = address of data item or 

beginning address of array 
B2 = array length or 

Bl = -1 



BUFFER IN, BUFFER OUT 
First Entry 



Second Entry 
Third Entry 



Bl = mode constant 

B2 = address of buffer parameter list or 

complemented address of variable 

tape number 

B7 = address of first word of data block 
B7 = address of last word of data block 
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END STATEMENT PROCESSING 

Three conditions will cause entry to the END processing routine. 

1. An END statement 

2. A plus in column one of the next input card 

3. An end of record on input 

In case one of the following conditons prevail: 

1. The instructions for the last subprogram have been compiled 
one per central memory word. 

2. The location tag, if any is needed, is in the lower 18 bits of 
the compiled instruction. 

3. All information needed to make memory assignments and process 
generated tags is contained in the temporary tables. 

At this time, the instructions are packed and the location tags along 
with their absolute address are saved. Various routines are then called 
to make temporary, common, and unique variable assignments. The tags of 
the variables along with their memory addresses are saved. 

The routine RAD is then called to replace tags with memory addresses. 
It will search the complete short file, that is the last program/sub- 
program compiled, and replace all K portions of 30 bit instructions that 
have tags with memory addresses. If, for some reason, a K tag is found 
that has not been given a memory assignment, sane type of diagnostic is 
g;iven. This could be caused by a missing statement, a dimension 
ordering error or could be a system error. 

The DATA statement is then processed, the variable map written, and a 
return is made to the main loop for the next subprogram. 

If there is a plus in column one of the next input card, a routine is 
entered to read in binary programs. These programs are positioned with 
the object deck already ccxnpiled. The information about each routine 
read in is extracted from the RA and RA+1 of the binary routine and 
entered into the subroutine tables. Processing then continues the same 
as if an end of record was detected originally on the input file. 
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A call is made to the PP routine CLL to load all subroutines not yet 
defined. The starting address of subroutines is now equated to memory 
addresses, and RAD is called once for each program/subprogram to replace 
all subroutine tags with raemo-ry addresses. The complete file, if no 
errors have been detected, is written on the disk. 

Then, depending on the mode of compilation, a return may be made for 
another deck, the compiler may terminate, the deck may be punched or^he 
EXU may be called to load and execute this compiled program. 

A simplified flow of the END processing is found on the next page. 
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END - PROCESS END STATEMENT 
(SIMPLIFIED) 



\n\S END OF PROGRAM AND/OR 
[SUBPROGRAMS TO BE COMPILED 
I BEEN REACHED ? 



NO 



IS THIS A FORTRAN PROGRAM 
OR SUBPROGRAM ? 



YES 



[COMPILE PROGRAM/SUBPROGRAM 
[TERMINATING INSTRUCTIONS 
PRINT INSTRUCTION GROUP 



COMPILE NAMELIST SPACE 
REPLACE TEMPORARY TAGS 



PACK INSTRUCTIONS 
POSITION CONSTANTS 
PACK VARIABLE TABLES 



PROCESS COMMON ASSIGNMENTS 
PROCESS UNIQUE ASSIGNMENTS 
PROCESS SPECIAL ARRAY TAGS 



YES 



FORM NAMELIST SPACE 
ARE SUBROUTINES ONLY 
BEING COMPILED ? 



NO 



REPLACE VARIABLE TAGS 
WITH ADDRESSES 



K> 



PROCESS SUBROUTINE 
PARAMETERS 



NO 



ARE SUBROUTINES ONLY 
BEING COMPILED ? 



YES 



POSITION LIBRARY ROUTINES 
REPLACE TAGS WITH FLAGGED 
ADDRESSES 



PROCESS DATA STATEMENTS 
CHECK MISSING NUMBERS 



WRITE VARIABLE MAP 

IS MODE OF COMPILATION 

"INCOMPLETE" 



©* 



YES 



RESTORE VARIABLE TABLES 
POSITION LIBRARY ROUTINES 
SET CLEARING PARAMETERS 



NO 



-H PROCESS MACHINE /ASCENT END 



YES 



NO 



REPLACE SUBROUTINE TAGS 
WITH ADDRESSES 



G> 



IS MODE OF C(»«PILATI(»J 
"INCOMPLETE" 7 



YES 



SHORT FIELD LENGTH ERROR 



YES 



NO 



WAS TOO MUCH COMMON OR 
UNIQUE STORAGE DECLARED ? 



NO 



WRITE SUBROUTINE MAP 
PROCESS BINARY FILE 




YES 



IS MODE OF GCMPILATION 
"CHAIN", "BATCH", OR 
"MULTIPLE" 7 



GPR 
MASTER LOOP RE-ENTRY POINT 



NO 



IS MODE OF COMPILATION 
"INCOIPLETE" ? 



NO 



INITIALIZE PROGRAM TABLES "j^ 



NO 



YES 



HAS END OF PROGRAM AND/OR 
SUBPROGRAMS TO BE COMPILED 
BEEN REACHED ? 



CPX^ 
MASTER LOOP RE-ENTRY POINT 



YES 



REQUEST MTR TO END OR 
ABORT CCWPIUTIOH 



I STOP I 



END STATEMENT PROCESSING 



ARE SUBROUTINES ONLY 
BEING COMPILED 7 



NO 



YES 




CPX 



MASTER LOOP RE-ENTRY POINT 
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I/O BUFFERS 



NUMBERED AND BIANK COMMON 




LOCAL VARIABLES 



LABELED COMMON 



INDIRECT ADDRESSES 



TEMPORARIES 



CONSTANTS 



OBJECT PROGRAM 




/?/A+FL 



PROGRAMMER SUBROUTINES 
(IF ANY) FOLLOWED BY 
LIBRARY SUBROUTINES 



RA 



ARGUMENTS (FILE NAMES, ETC.) FROM PROGRAM 
CARD BEGIN AT RA + 2 



MAIN PROGRAM ORGANIZATION 



i^ik 



LISTING 



INTERPRETATION 



PROGRAM TESTdNPUT.TAPEl = INPUT) 



000000 





L00002 


000001 





L00003 


000002 





L00004 


000003 





L00005 


0000( - 





LOOOOl 


000005 


5110 COOOOl 

63110 

21122 




OOOOf 


63210 
21122 
63310 
74200 




000007 


37121 

0331 000000 




OOOOIO 


7160 001777 
20660 




000011 


56610 

6111 000001 


L00006 


000012 


0712 L00006 
43600 




000013 


56610 

6111 000001 


L00007 


000014 


0713 L00007 
5110 C00002 




000015 


63110 
43052 
5120 C00004 




000016 


63220 
67312 
5130 000002 




000017 


11730 
56730 
5140 C00005 




U00020 


10740 

5170 000002 




000021 


7173 000010 
5173 OOOOOl 




000022 


5173 000002 
5173 000003 




000023 


76710 

5173 000004 

43700 




000024 


5173 000005 
5173 000006 




000025 


5150 C00003 
10750 




U00026 


5173 000007 
67112 






NAME = 


2 



ASCEHT EqUIVALEHT 



L00002 BSSZ 1 

L00003 BSSZ 1 

L00004 BSSZ 1 

L00005 BSSZ 1 

LOOOOl BSSZ 1 

SAl COOOOl 
SBl XI 
AXl 22B 
SB2 X 1 
AXl 22B 
SB3 XI 
SX2 AG 
IXI X2.XI 
NG XI, 
SX6 OOI777B 
LX6 60B 

L00006 SA6 BI 



SBl 


Bl + 1 


LT 


B1.B2,L00006 


MX6 





L00007 SA6 


BI 


SBl 


Bl + 1 


LT 


B1,B3,L00007 


SAl 


000002 


SBl 


XI 


MXO 


52B 


SA2 


C00004 


SB2 


X2 


SB3 


B1-B2 


SA3 


000002 


BX7 


X3*X0 


SA7 


B3 


SA4 


C00005 


BX7 


X4 


SA7 


000002 


8X7 


B3 + lOB 


SA7 


B3 + 1 


SA7 


B3 + 2 


SA7 


B3 + 3 


SX7 


Bl 


SA7 


B3 + 4 


MX7 


Q 


SA7 


B3 + 5 


SA7 


B3 + 6 


SA5 


C00003 


BX7 


X5 


SA7 


B3 + 7 


SBl 


B1-B2 



Header card, proccascd by PPG 



RA, RA + 1 are MTR coHMinlcatlona area 
File Name and Buffer Addreai (INPUT) 
File NaiM and Buffer Addrcst (TAKl) 
Reserved word (lubprograa antry/exit line) 
COOOOl - paraaeccr word act up by END 
Extract local URgth 

Extract beginning addrcaa of (KMfQM 

Extract coapiled field length 
Pick up field length f roa AO 

Exit if insufficient apace 

Set X6 to an indefinite value 



Set unused prograa space (i.e., froa 
the end of local to the beginning of 
COIMON) to indefinite: clear CCMKM 
and buffer areas to sero 



Fetch coapllcd field length 

Set Bask for file naaa 
Fetch coaplled buffer lai^th 

Coopute starting address for 1'^ buffer 

Fetch first file naae tram RA + 2 

Maak out buffer address, store flic niM 

as l*t buffer paraaeter 

Fetch coaqiiled flic naaa and buffer 

address, store in RA + 2 (replace 

execution timt file naaa) 

Inttlallxc circular buffer polntcrf 

Set FIRST -•» 

Set IN 

Set OUT 

Pick up coofiiled field length 

Set LIMIT 



Set sixth and seventh buffer para 

to sero 

Fetch line Halt 



Iters 



Set line Halt as eighth paraastar 
Set LIMIT for next buffer (unused In 
this exaaple) 
Source card, processed by SFO 



000027 7160 000002 
5160 VOOOOl 



SX6 000002 
SA6 VOOOOl 



Instructions 
aent by CXP 



>llcd for this state- 



Note: words - 268 **'* coo^>iled by the PPG (Process Naae and Arguaents) subroutine. When the ca^)iler oaster 
loop encounters a PROGRAM card, the PGM (Process Program Stateaent) aubroutine is called: PQi checks to 
Insure that a prior program or segaent has not been coBq>iled, and then calls PPG. 

LOOOOn = PROGRAM TAG (A.TAG) 
COOOOn = CONSTANT TAG (K-TAG) 
VOOOOn = VARIABLE TAG (V-TAG) 



SAMPLE COMPILATION'. SHEET 1 



LISTING 



DO 3 I = I, NAME 



000030 


7160 000001 


00003 1 


5160 V00002 L00013 




3 BAT = ROB 




5150 VOOOOl 


000032 


5110 V00004 




10610 


000033 


5160 V00003 




5120 V00002 


000034 


7262 000001 




37756 


000035 


0327 L00013 




A = 16. 




5110 C00006 


000036 


10610 




5160 V00005 




GO TO 1 


000037 


0400 NOOOOl 




1 Q = 0. 



ASCENT EQUIVALENT 



INTERPRETATION 



SX6 000001 
L00013 SA6 V00002 



SA5 VOOOOl 

SAl V00004 

BX6 XI 

SA6 V00003 

SA2 V00002 

SX6 X2 + 1 

1X7 X5-X6 

PL X7, L00013 



000040 43600 L00020 (NOOOOl) 

5160 V00006 

CALL BATSUB{A,B,C,D,E,F,G,10) 



000041 


6110 V00005 




6120 V00007 


000042 


6130 VOOOIO 




6140 VOOOU 


000043 


6150 V00012 




6160 V00013 


000044 


7160 VOOOU 




5160 S00207 


000045 


7170 C00007 




5170 S00210 


000046 


0100 S00200 L00022 




0710 L00002 




END 


000047 


5120 COOOIO 




10720 


000050 


0100 S00300 



SAl C00006 
BX6 XI 
SA6 V00005 



EQ BO, BO, NOOOOl 



L00020 MX6 

SA6 V00006 



SBl V00005 

SB2 V00007 

SB3 VOOOIO 

SB4 VOOOU 

SB5 V00012 

SB6 V00013 

SX6 V00014 

SA6 S00207 

SX7 000007 

SA7 8002 10 

L00022 RJ S00200 



SA2 COOOIO 

BX7 X2 

RJ S 003 00 



COMMENTS 



Source card, processed by SDO 

CDI(called by SDO) cot^Jiles Instructions 
to Initialize the DO index 

Source card, processed by SFO. Statement 
number processed by PSN, which calls PDT 
to compile index increment and test instrs. 
Fetch ROB 



Store (ROB) in BAT 

Fetch I 

1 = 1+1 

NAME • I 

Loop if limit not reached 



} 



compiled 
by PDT 



Source card, processed by SFO 

Fetch constant 

Store constant in A 

Source card, processed by SCO 

NOOOOl = statement tag (H-tag) 

Source card, processed by SFO 

L00020 is equated to NOOOOl through the 
Tenqjorary and Permanent Tag Tables 

Source card, processed by CLL. GLL calls 
PRR to compile argument handling Instrs. 

The addresses of the first six 
arguments are passed to the 
subroutine in registers Bi - B6 



Pick up address of seventh argument 
Store 7th argument addr. In reserved word 
Get address of 8th argument - a constant - 
and store in reserved word 

Lower half of instruction word contains 
argument count and name of caller 
Source card, processed by END 

Zero word passed to execution time 

subroutine END 

Jump to execution time subroutine END 



nn /!!* T " ! °*" ^"" °^ """"^ ^^ ^» »=*** ^^"" ^"'^^^ instruction for the DO index increment and test. 
Do index Increment and test instructions are compiled by PDT (called by PSN). PDT calls the AOS subroutine 

l^tructi^io!I!^??!f f ^K° *"^""" '° llT '^* i""«-«"' «nd li»" £"ches (if any) at the beginning of the 
instructions con^Ued for the statement which terminated the DO loop. 



SAMPLE COMPILATION: SHEET 2 



LISTING 



INTERPRETATION 



ASCENT EQUIVALENT 



COMMENTS 



SUBROUTINE BATSUB(W,X,V,D,R, J ,M,L) 



000077 







L00002 


000100 







L00003 


OOOIOl 







L00004 


000102 







L00005 


000103 







L00006 


000104 







L00007 


000 I OS 







LOOOlO 


000106 







LOOOll 


000107 







L00012 


000110 







L00013 


000111 







LOOOOl 


000112 


76710 
76120 
20122 
36717 






000113 


76230 
20244 
36727 






000114 


5170 TOOOOl 






76740 








76350 






000115 


20322 
36737 
76A60 
20444 






000116 


36747 








5170 T00002 








RETUKN 




000117 


0400 LOOOOl 








END 




000120 


5150 COOOOl 






10750 






000121 


0100 S00300 





L00002 


BSSZ 


1 




L00003 


BSSZ 


1 


L00004 


BSSZ 


l-\ 


L00005 


BSSZ 


1 




L00006 


BSSZ 


1 




L00007 


BSSZ 


1 




LOOOlO 


BSSZ 


1 f^" 


LOOOll 


BSSZ 


1 


L00012 


BSSZ 


1 J 


L00013 


BSSZ 


1 


LOOOOl 


BSSZ 


1 




SX7 


Bl 




SXl 


B2 




LXl 


22B 




1X7 


XI + X7 




SX2 


B3 




LX2 


44B 




1X7 


X2 + X7 




SA7 


TOOOOl 




SX7 


B4 




SX3 


B5 




LX3 


22B 




1X7 


X3 + X7 




SX4 


B6 




LX4 


44B 




1X7 


X4 + X7 




SA7 


T 00002 



EQ BO, BO, LOOOOl 



SA5 COOOOl 

BX7 X5 

RJ S00300 



Header card, processed by PPG 

Reserved for subroutine nmmt 
Reserved for arguosnt count 



These six words are unused, since the 
arguaents to which they correspond arc 
passed in registers Bl - B6 

Reserved for the seventh arguaent 
Reserved for the eighth arguaent 
Entry/exit line 

Save addresses of first three arguaants 
in tegqiorary word 1 



Store first three arguaent addresses 

Save addresses of next three arguaents 
in temporary word 2 

TOOOOn = Tcaiftorary Tag (T-Tag) 



Score second three arguasnt addresses 

Source card, processed by RTN 

Juap to entry/exit line 

Source card, proccssad by END 

Pass a sere word to the execution tlae 
subroutine END. These instructions are 
unused in this exa^>lc: they would be 
used if Che RETURN stateaent was not 
present. 



SAMPLE compilation: SHEET 3 



CHIPPEWA FORTRAN COMPILER - RUN 



Section 3 



SUBROUTINE DESCRIPTIONS 



AAR - ANALYZE AREAY REFERENCE 

This routine is called during the processing of an arithmetic expression 
when it has become necessary to bring the address of an array entry to 
B7. It is entered in an attempt to stop the storing of the array address 
into an indirect cell. Two conditions will make this routine flag that 
the store is probably necessary. 

1. If there are any more array references- to be processed, the store 
must be generated, 

2. If the mode of the array is integer and if there is a division 
specified in the expression before this array reference is made, 
the address must be saved. 

Otherwise, the single array reference count is increased, the next 
indirect tag and index 7 are packed into X6 and the routine exits. 



Subroutines Called ; None 

Temporaries /Flags ; ARI - Array Reference Count 

IGX - Current Index Assignment 
SAR - Single Array Reference Count 
TGI - Indirect Tag 
TMF - Start of Array Reference 
TMH - Start of Expression 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Entry; None 

Exit; X6 - zero implies no processing done 

X6 'f zero implies the next indirect tag and B7 have 
been packed in X6 and no store of the array 
address must be made. 



J' A 



ABS-1 



ABS - PROCESS ABSOLUTE LIST 

When the MAA (Process Machine or Ascent Records) subroutine encounters 
an ABS declarative, the ABS subroutine (Process Absolute List) is called. 
The ABS declarative permits the unsigned number on the right to be 
assembled into instructions containing the identifier in their address 
field. An example of the ABS declarative together with the basic 
steps in processing the list is shown in Figure ABS-1. 

^n entering the ABS subroutine, the TAB subroutine is called to normalize 
the list. The Variable Name Table (Table M) is scanned to determine if 
the variable which has been equated to the subroutine name has been 
entered and, if not, the variable is entered in the Variable Name Table. 
If the variable has previously been entered in the Variable Name Table, 
an error exit (Duplicate Tag Error) occurs. The variable name is also 
checked to insure that the first character is alphabetic and that the 
name is composed of two or more characters for machine programs. 

Next, a check is made for the equal sigri and the CVN (Convert Number) 
subroutine is called. It tne constant is greater tnan -i. ana xess* 

than 2"'"^-l, it is stored in the Variable Tag Table (Table N). If the 

1 fi 17 
constant lies between 2 -1 and 2 -1, a Statement Tag (H-tag) is 

generated and stored in the corresponding Variable Tag Table and the 

constant is stored in the Argument Tag Table (Table J). 



Subroutines Called ; TAB - Normalize Statement 

SCT - Scan Table 

CVN - Convert Octal or Decimal Number 

ADF - Advance Table 

Temporaries /Flags ; MOD - Subprogram Mode 

TGH - Statement Tag (set) 

IPS - Program/Subprogram Indicator 



ABS DECLARATIVE PROCESSING 



arcjix^. >j'.'nwTiTf.";TWn 



EXAMPLE: ABS (^JJ-=,/00j, KK=-/OOB^ LLrr/^^^N 

1. STORE THE VARIABLE NAME (e.g. ,JJ) IN THE VARIABLE NAME TABLE 

2. CHECK FOR AN EQUAL SIGN 
•»! 

H- 
OQ 
C 

<t> 3. CONVERT THE CONSTANT 

> 
w 

CO 

I 

»— ' 

4. LOOK FOR A TAG OR CONSTANT 



5. STORE IN THE APPROPRIATE TABLE 



6. IF THE NEXT ENTRY IS A COMMA, REPEAT 1-5 

7. CHECK FOR A RIGHT PARENTHESIS T. 



8. RETURN FOR THE NEXT RECORD 
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Tables Referenced ; TBM - Variable Name 

TBN - Variable Tag 
TBJ - Argument Tag 

Entry /Exit Register Conditions ; DNA 

Note; Error Lists; EMC - Machine Constant 

EMD - Machine Duplicate Tag Error 

EMF - Machine Format Error 

EMT - Machine Tag Definition Error 
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ACE - PROCESS ASCENT ECU 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
an EQU Ascent pseudo-operation instruction, the ACE subroutine is called, 

The ACE routine writes a constant of "all fives" into the output buffer 
then transfers to WNX (Write Coded Record) and MX. (Read Coded Record). 
Next a call to TAB (Normalize Statement) reorders the string entries to 
one variable or separator per word. An equal sign is stored in column 9 
and the location variable is stored in column 8. Further processing is 
handled with a jump to the ABS (Process Absolute List) subroutine. 



Subroutines Called; WNX - Write Coded Record 

RNX - Read Coded Record 
TAB - Normalize Statement 
ASV - Assemble Variable 

Temporaries /Flags ; CAS - Constant of Blanks 

MHI - Machine Header Card Indicator (set) 

Tables Referenced ; None 

Entry/Exit Register Conditions ; 

Al string address of first character beyond EQU pseudo- 
operation code. 
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ACH - PROCESS ASCENT DPC AND BCD 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
a BCD or DPC pseudo-operation, the ACH subroutine is called. The PST 
routine is called to process the location tag and the AKA routine is 
called to adjust the address and write the register. Next the first 
character of the address field is erased from the string, and the next 
ten characters are accumulated. A test is miade to insure that the 
pseudo-op appeared in the constant section. On exit from the routine, 
the code is in X6. 



Subroutines Called ; PST - Process Statement Tag 

ARA - Adjust Running Address and Write Register 



Temporaries /Flags ; IWC - Instruction Word Count 



Tables Referenced: None 






Al - Address of first non-blank following opcode. 
X6 - Hollerith field 
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ACE - PROCESS ASCENT EQU 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
an EQU Ascent pseudo-operation instruction, the ACE subroutine is called. 

The ACE routine writes a constant of "all fives" into the output buffer 
then transfers to WHX (Write Coded Record) and RKX (Read Coded Record). 
Next a call to TAB (Normalize Statement) reorders the string entries to 
one variable or separator per word. An equal sign is stored in column 9 
and the location variable is stored in column 8. Further processing is 
handled with a jump to the ABS (Process Absolute List) subroutine. 



Subroutines Called; WNX - Write Coded Record 

RKK - Read Coded Record 
TAB - Normalize Statement 
ASV - Assemble Variable 

Temporaries /Flags ; CAS - Constant of Blanks 

MHE - Machine Header Card Indicator (set) 

Tables Referenced ; None 

Entry/Exit Register Conditions ; 

Al string address of first character beyond EQU pseudo- 
operation code. 
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ACH - PROCESS ASCENT DPC AND BCD 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
a BCD or DPC pseudo-operation, the ACH subroutine is called. The PST 
routine is called to process the location tag and the ABA routine is 
called to adjust the address and write the register. Next the first 
character of the address field is erased from the string, and the next 
ten characters are accumulated. A test is made to insure that the 
pseudo-op appeared in the constant section. On exit from the routine, 
the code is in X6. 



Subroutines Called ; PST - Process Statement Tag 

ARA - Adjust Running Address and Write Register 



Temporaries /Flags ; IWC - Instruction Word Count 



Tables Referenced: None 
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Al - Address of first non-blank following opcode. 
X6 - Hollerith field 
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ACK - prcx:ess ascent con 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
a CON Ascent pseudo-operation code, the ACK subroutine is called. The 
constant in the address field is moved left beginning in column 7 of the 
string buffer. When an end of statement or a blank is encountered, a 
zero is written into the string and a transfer back to the main loop of 
MAC for further processing occurs. 



Subroutines Called ; None 

Temporaries /Flags ; None 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Al string address of last character before the address field 
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ACR - PROCESS ASCENT BSS AND BSSZ 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
a BSS or a BSSZ pseudo-operation code, the ACR subroutine is called. 
Column 7 of the string buffer is set to a left parenthesis and the value 
of the address field is moved to the left beginning in column 8. Upon 
encountering the first blank or end of statement, a right parenthesis 
and a zero are stored into the next two columns of the string. Further 
processing is done in the Master loop of MAA. 



Subroutines Called: None 



Temporaries /Flags ; None 



Tables Referenced; None 



Entry /Exit Register Conditions ; 

Al - String address of the last character before the address 

field 
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AFS - ASSEMBLE FORTRAN STATEMENT 

The AFS subroutine assembles a FORTRAN statement or assembly instruction 
from card buffer into the string buffer. If a statement is continued 
on one or more succeeding (continuation) cards, all such cards are also 
transmitted to the string buffer. Within the string buffer, information 
is packed one character per word, right-justified. The string buffer 
loading process is illustrated in figures AFS-1 and AFS-2. 

On entry, the multiple statement indicator, ICE, is examined to determine 
if there were multiple statements on the card previously transmitted to 
the string buffer. If ICE is zero, then there were no multiple state- 
ments on the card previously transmitted to the string buffer: otherwise, 
ICE contains the address in the string buffer of the dollar sign which 
terminated the statement just processed. In the latter case, AFS blanks 
out the preceding statement and scans the remainder of the card until 
either a dollar sign or the end of the statement (a zero word) is 
encountered. If a dollar sign in encountered, the multiple statement 
indicator is set to the address of the dollar sign in the string buffer. 
Control is then returned to the calling program. 

If there were no multiple statements on the previous card, AFS enters 
a loop which inputs, examines, and lists cards until a statement or 
instruction card is found, AFS calls the RNX subroutine to bring a card 
from the input buffer to the card buffer, and calls the WNX subroutine 
to transmit the card to the output buffer for listing. As each card is 
processed, AFS checks to see if the end of file has been reached. If 
the previous statement was an END statement, then PNM (program/sub- 
program name) will be zero: if PNM = and an end of file is encountered, 
AFS transfers control to END (Process End Statement). In all other 
cases, detection of the end of file will result in an error exit. On 
the first entry to the loop, the card already in the card buffer is 
examined. If column 1 contains a period (page eject card), an asterisk 
or a dollar sign (remarks card), or in a FORTR^ program, the letter C 
(comments card), the card is listed (i.e., transmitted to tte output 
buffer) and the next card brought to the card buffer. This process is 
repeated until a statement/instruction card is found: i.e., a non- 



yl 



.^ 



eEr4=7/.56#A'(^) = 0. 



CDC1050 



SOURCE CARDS IN INPUT BUFFER 
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SOURCE CARDS ARE TRANS. 
KITTED FROM THE INaT 
BUFFER TO THE CARD BUFFER 
BY THE RNX SUBROUTINE 
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SOURCE CARD IN CARD BUFFE R 
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COLUMNS I . 72 OF STATE. 
KENT CARDS ARE TRANSMITTED 
TO THE STRING BUFFER BY 
THE ATS SUBROUTINE (ONE 
CHARACTER PER WORD) 
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SOURCE CARD IN STRING BUFFER 



THE MULTIPLE STATEMOJT 
INDICATOk (ICE) IS Si;T 
TO THIS ADDRESS 



END or CARD, INDICATED BY 
A ZERO WORD. IF THERE 
AtE CONTINUATION CARDS, 
THESE ARC ALSO TRANSFERRED 
TO THE STRING BUFFER 



STRING BUFFER LOADING 
AFS SUBROUTINE 
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blank card which is not one of those described above. 

Next, column 6 of the card is examined. If column 6 is blank, contains 
a zero (FORTRAN program), or does not contain as asterisk, AFS transfers 
the card from the card buffer to the string buffer. All 72 characters 
on the card (spaces included) are transmitted to the string buffer. 
Characters in the string buffer are packed one per word, right-justified. 
If a dollar sign is encountered in the transfer process, the multiple 
statement indicator is set to the address of the dollar sign in the 
string buffer. (Note: this dollar sign is replaced with a zero word 
on return to the main loop of RUN.) The end of the card in the string 
buffer is then marked by a zero word. This zero word will be overlaid 
if this statement is continued on succeeding cards. 

After processing a statement or instruction card, AJS inputs another 
card into the card buffer to determine if the statement just processed 
is continued: if so, the associated continueation cards must also be 
transferred to the string buffer. AFS examines the card to determine 
if it is a comments card (C in column 1). If it is, it is listed and 
AFS brings another card to the card buffer. If a card is found which 
is not a comments card, column 6 is examined to determine if it is a 
continuation card (non-blank and non-zero in FORTRAN, an asterisk 
in assembly language). If it is not a continuation card, control is 
returned to the calling program: the card in the card buffer will be 
processed on the next entry to AFS. If the card is a continuation 
card, it is transferred to the string buffer and the process repeated. 

If the first statement /instruction card found did not contain a blank 
or zero in column 6 (FORTRAN program) or contained an asterisk in 
column 6 (assembly program), then it is assumed that an out- of- sequence 
continuation card has been found, AFS enters a loop in which cards 
are read and listed until a non-continuation, non-comments card is 
found, at which point an error exit takes place (continuation error). 
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YES 



MULTIPLE STATEMENT INDICATOR SET ? 



NO 



PREVIOUS STATEMENT AN END STATEMENT 
AND END OF FILE REACHED ? 



NO 



INPUT AND LIST CARDS UNTIL A NON- 
BLANK, NON-COMMENTS CARD IS FOUND 

IS THERE AN INVALID CHARACTER IN 
COLUMN 6 ? 



NO 



TRANSFER CARD TO STRING BUFFER, ONE 
CHARACTER PER WORD, RIGHT- JUSTIFIED 

SET MULTIPLE STATEMENT INDICATOR 
WHEN FIRST $ IS ENCOUNTERED 



SCAN NEXT CARD IN CARD BUFFER 
IS IT A COMMENTS CARD ? 



YES 



YES 



YES 



YES 



"^ 



NO 



IS IT A CONTINUATION CARD ? 




NO 



EXIT 



-£> 



BLANK OUT LAST STATEMENT IN THE 
STRING BUFFER 

SET MULTIPLE STATEMENT INDICATOR 
TO START OF NEXT STATEMENT ($) 



{> 



PROCESS END STATEMENT 



EXIT 



i> 



INPUT AND LIST SUCCEEDING CARDS 
UNTIL A NON-COMMENTS, NON- 
CONTINUATION CARD IS FOUND 



CONTINUATION ERROR 



{> 



LIST THIS CARD 
INPUT THE NEXT CARD 



MAJOR FUNCTIONS 
AFS SUBROUTINE 
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Subroutines Called ; RKX - Read Coded Record 

WNX - Write Coded Record 
ASM - Assemble Mnemonic Code 
END - Process End Statement 



Temporaries /Flags ; 



Tables Referenced ; 

Entry /Exit Register Conditions ; n/a 



ICE - Multiple Statement Indicator (set) 

MHI - Machine Heading Indicator (set) 

IGS - Instruction Group Start (set) 

PNM - Program/Subprogram Name 

MOD - Subprogram Mode Indicator 

FST - Long File Start 

SIG - Compile Mode Indicator 

ICA - Display Coded Running Address 

none 
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ANK - ANALYZE ADDRESS GENERATING INSTRUCTIONS FOR RIGHT MEMBER 

This routine is called during the processing of an expression when B7 
has been used to hold the address of an array entry and there are more 
array references in the statement. If AO Is still available, the last 
compiled instruction is changed to a set AO instruction and the AO 
register associate is set to the next indirect tag which is passed back 
to the calling program. It also clears the instruction register X7. 



Subroutines Called: None 



Temporaries /Flags ; 



TGI - Indirect Tag 

VTA - AO Register Associate 



Tables Referenced; 



None 



Entry /Exit Register Conditions ; 

Entry: None 

Exit: X6 = zero if AO was not available 

X6 f zero if AO was used to hold the address of the 
array entry. Actually it would have the next 
indirect tag and bit 21 set to say the address 
was in AO. 
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ARA - ADJUST RUNNING ADDRESS AND WRITE REGISTER 

When the MAA (Process Ascent and Machine Records) subroutine has packed 
as many consecutive instructions into one machine word as possible, the 
ARA routine is called to increment the running address by one and write 
the previously stored word. Should ARA be entered when the counter has 
been reset to zero, blanks are stored into the output buffer, then 
current running address is converted and stored. Should the counter be 
set to non-zero, the current word is written and the running address is 
incremented before the converting and storing of the running address. 



Subroutines Called ; None 

Temporaries /Flags ; ICT - Intraword counter 

AM - Current Running Address 

Tables Referenced ; None 

Entry /Exit Register Conditions ; N/A 
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ASL - ASSEMBIE LETTERS 

The ASL subroutine assembles a specified number of letters from the 
string buffer into an assembly register. On entry to this subroutine, 
the B4 register contains the address of the location in the string 
buffer where assembly is to begin, and the B2 register contains the 
nxanber of letters to be assembled. The assembled letters are returned 
to the calling program in the X6 register (left- justified). Spaces 
are ignored during assenfl)ly. If the end of the statement (indicated 
by a zero word in the string buffer) is encountered, or if a character 
is found which is not a letter, the assembly is terminated; the 
letters already processed, if any, are left-justified in the assembly 
register and control returned to the calling program. 

Subroutines Called ; none 
Temporaries /Flags ; none 
Tables Referenced ; none 
Entry/Exit Register Conditions 

Entry; B4 = address in string buffer where assembly is to 
begin 

B2 = number of letters to be assembled 

Exit; X6 «= assembled letters, left- justified (zero if none 
assembled) 

B2 « difference between number of letters requested 
to be assembled and number of letters actually 
assembled 

B4 = address + 1 in the string buffer of the last 
letter assembled 

Note: In the case where less' than the requested number of letters were 
assembled, ASL exits with the non-alphabetic character which 
terminated the assembly in the XI register. 
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ASM - ASSEMBLE MNEMONIC CODE 

The ASM subroutine assembles the mnemonic code for an Ascent or Machine 
statement from the string buffer into the X6 register. First the routine 
scans over the leading blanks o£ thefiald being assembled. Then up to 
four alphabetic characters are moved into the X6 register. The first 
number or separator will terminate the collecting of letters in the 
X6 register. This character will be left in the XI register. The result 
in X6 will be left justified and the B2 register will contain a flag 
(see chart below) to indicate the instruction type. 



Subroutines Called ; None 

Temporaries /Flags ; MOD - Subprogram Mode 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Entry; B4 - contains address in the string buffer where 
assembly is to begin 

Exit; X6 - opcode left justified 

XI - next non-alpha string character 

Note: The Ascent mnemonics composed of 2 letter and a number are 
split between X6 and XI (i.e,, SXl X6 = SX and XI * 34) 

B2 Value Assembled Letters Examples 

4 letters except BSSZ FORTRAN STATEMENTS 

1 3 letters END 

BSSZ ASCENT PSEUDO-OPS 



2 letters 

2 letters + Number 



ASCENT MNEMONICS 



3 1 letter Machine Mnemonic 

4 letters CONSTANT 
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ASN - ASSEMBLE NUMBERS 

The ASN subroutine assembles consecutive numbers from the string buffer 
into the assembly register. The routine attempts to assemble 7 numbers. 
On entry to this subroutine, the B4 register contains the address of 
the location in the string buffer where assembly is to begin. The 
assembled letters are returned to the calling program in the asisembly. 
register, X6 (left- justified). Spaces are ignored during assembly 
and, in the case of statement number assembly (i.e., assembly starting 
address not greater than column 5), leading zeroes are ignored. Numbers 
are transferred to the assembly register until either a non-space, 
non-nijmeric character is encountered or seven numbers have been assembled: 
The contents of the assembly register are then left-justified. 

If no numbers were encountered, the assembly count (B2 register) is set 
to zero, and a display code zero is placed, left- justified, in the 
assembly register. 



Subroutines Galled ; none 

Temporaries /Flags ; none 

Tables Referenced ; none 

Entry /Exit Register Conditions 

Entry: "64 = address in string buffer where assembly is to begin 

Exit: X6 = assembled numbers, left- justified (display code 
zero if none assembled) 

B2 = 7 - number of numeric characters assembled 
(0 if none assembled) 

B4 = address + 1 in the string buffer of the last 
letter assembled 

Note: In the case where less than the requested number of digits were 
assembled, ASN exits with the non-numeric character which 
terminated the assembly in the XI register. 
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ASV " ASSEMBLE VARIABLE 

The ASV subroutine assembles consecutive alphanumeric characters from 
the string buffer into the assembly register. The routine attempts to 
assemble 7 such characters. On entry to this subroutine, the B4 
register contains the address of the location where assembly is to begin. 
The assembled characters are returned to the calling program in the 
assembly register, X6 (left- justified). Spaces are ignored during the 
assembly. Characters are transferred to the assembly register until 
either 7 alphanumeric characters have been assembled or a non-space, 
non-alphanumeric character is encountered. If 7 consecutive alphanumeric 
characters are found, succeeding characters in the string buffer are 
read and examined until a non-space character is found. The contents 
of the assembly register are then left-justified. 

The last character scanned is then examined to determine if it is an 
asterisk. If it is, and if this is an assembly program, it too is 
packed in the assembly register. Control is then returned to the 
calling program. 

Subroutines Called ; none 

Temporaries /Flags ; MOD - Subprogram Mode Indicator 

Tables Referenced ; none 

Entry/Exit Register Conditions 

Entry; B4 = address in string buffer where assembly is to begin 

Exit; X6 = assembled characters, left- justified (0 if none 
assembled) 

B2 = 7 - number of alphanumeric characters assembled 

B4 = address of next non-space, non-alphanumeric 
character in the string buffer 

Note; If an asterisk was packed in the assembly register, XI is loaded 

with the character immediately following the asterisk in the 

string buffer. B4 is not advanced but still contains the address 
of this character. 
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BNX - BINARY OUTPUT ROUTINE 

This routine is called at the end of compilation when the complete 
program including library subroutines are all in central memory. If 
a binary deck was requested, either the PBS or PBC PP punch routines 
are called. PBS is called if the mode of compilation is inccmplete as 
it gives a status response when the punching is complete which PBC 
does not do. 

-A request is then made to CIO to write the program as a binary file 
whose name is in the same as the program name and the compiler remains 
in recall until the output has been completed. Another CIO request is 
sent to rewind the file. If the mode was not compile and execute, 
the routine exits. Otherwise, if a program was the first routine 
compiled, the name of the program is written into the dayfile and the 
PP routine EXU is called to read the program back in. AAB is called 
to adjust the program field length and BNX exits. 



Subroutines Called : AAB - Adjust Program Field Length 

Temporaries /Flags : BOA - 

^ Binary Buffer Parameters 
BOC - 

BOD -^ 

FST - Long File Start 

ICM - Incomplete Compile Mode Indicator 

INQ - Name for Dayfile 

INV - Segment Indicator 

IPS - Program/Subprogram Indicator 

STG - Compile Mode Indicator 

ZAA - Relative Start of Current Program or 
Subroutine 

Tables Referenced: None 




Entry /Exit Register Conditions ; None 
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BRX - READ BINARY SUBROUTINES 

This routine is called to read any subroutines that have been detected 
by the presence of a + in column 1 of the next input card. This 
routine transfers the binary routines from the input buffer to the 
compiled program area. It does its own requests to CIO when it is 
necessary, and does not use the RNX routine to read cards. When all 
routines have been transferred or when there is no room to continue 
the transfer, a zero entry is made and the routine exits. 



Subroutines Called ; None 

Temporaries /Flags ; INA - CIO Input Buffer Parameters 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Entry; X7 - address start of tables 

X6 - start of the region to transfer routines to 
Exit; None 
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CDC - CONVERT INSTRUCTION OR CONSTANT TO DISPLAY CODE 

The CDC subroutine converts to display code the binary instruction 
formed from an Ascent or Machine source card. Upon entry into this 
routine, Bl contains a 5, 4 or 24B indicating a short, long or full 
word instruction, respectively. Detecting a short instruction, CDC 
will write one word into the output buffer and exit. The long 
instruction will call KOT to convert the binary tag to a mnemonic tag 
and thereby cause a two word entry into the output buffer. A full 
word instruction appends a zero word to its entry so that the buffer 
has three words stored. The exact form of these entries are shown 
in Figure CDC-1. 



Subroutines Called ; KOT - Convert Binary Tag to a Mnemonic Tag 
Temporaries/Flags ; None 
Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Bl 24B, 5, 4 

XI binary instruction left-justified 



CDC OUTPUT BUFFER ENTRIES 

SHORT INSTRUCTION CXXIJKOOOOq 

LONG INSTRUCTION [XXIJABnnnn] (nOOOOOGOOg) 

FULL WORD INSTRUCTION \^n^ ... CHl(0 ^11' » '(^\(, 0] 

XX OPERATION CODE 

I « RESULTANT REGISTER 

J FIRST OPERAND REGISTER 

K SECOND OPERAND REGISTER 

ABnnnn r- MNEMONIC TAG 

CHj^-CHj^^ OCTAL DIGITS 



Figure CDC-l 
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CFF - COMPILE FUNCTION DSFINITION 

This routine controls the processing of all arithmetic statement 
functions after they are detected by the SFO routine. These functions 
are handled in the same manner as a function subprogram except that 
they may only contain one statement while a function subprogram may 
contain many. The function is a closed subroutine, entered via a 
return jump and exited from via the entry point. A zero word is 
compiled for each function argument plus one zero word for the entry/ 
exit line. Since these functions are allowed to appear anyplace in the 
program, it is necessary to compile a jump over the closed subroutine that 
the arithmetic statement function generated. When such a jump is 
generated, the address of the jump is saved in "CJP" - current jump 
address. 

On entry, the current jump address is examined to see if there is a 
current jump pending. If there is, a check is made to see that it was 
generated by an ASF rather than a logical if statement and a diagnostic 
given if not. If there is no current jump pending, a jump instruction 
is compiled to a statement or H tag and the address of this compiled 
jump is entered into CJP for later use. 

The arguments to the function are then processed one at a time. The 
argument name is entered into the Argument Name Table and a Function 
Tag is generated, grouped with the mode and index assignment of the 
argument (if any) and entered into the Argument Tag Table. The function 
name is then entered into the Function Name Table and its tag and a mode 
indicator are entered into the Function Tag Table. This tag also 
replaces tlie name of the function in the string, and then the list of 
arguments are squeezed out of the string. 

TAB is called to normalize the statement and TIQ is then called to 
translate the rest of the string entries into appropriate tags. If 
the dominant mode of the expression is double or complex or if the 
expression references other subroutines, the string is searched and for 
each function argument that has an index register associated with it 
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the argument reference count is decreased by one and the index designation 
for the argument in the string is deleted, 

UNP is then called to generate instructions to evaluate all expressions 
within parenthesis and replace these expressions with tags. An attempt 
is made to delete an unnecessary store if the function is a very simple 
one. Otherwise, GXP is called to compile the final answer and bring it 
to X6, An attempt is then made to have the answer end up in X6 and thus 
eliminate any unnecessary 10 instructions. Instructions are generated 
to convert the expression to the mode of the function and finally a 
jump instruction is compiled to exit through the function's entry point. 



Subroutines Called ; ADF - Advance Table 

CLT - Clear Temporary Tables 

CXP - Compile Expression 

SCT - Scan Table 

TAB - Normalize Statement 

TIQ - Translate Individual Quantities 

UNP - Unpack Parenthesis 

Temporaries /Flags ; AKF - Argument Reference Count 

ARC - Argument Count 

CJP - Current Jump Address 

IGX - Current Index Assignment 

INO - Dominant Mode Indicator 

MOD - Subprogram Mode 

STN - Statement Number 

TBE - E TABLE PARAMETERS 

TBF - F TABLE PARAMETERS 

TBI - I TABLE PARAMETERS 

TBJ - J TABLE PARAMETERS 

TBM - M TABLE PARAMETERS 

TGF - Function Tag 

TGH - Temporary or Statement Tag 

Tables Referenced ; Function Name (E) 

Function Tag (F) 



Entry /Exit Register Conditions: None 
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Argument Name 
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Argument Tag 


(J) 


Variable Name 


(M) 
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CHAIN 

The method of chaining employed within the Fortran compiler, RUN, 
is a complete overlaying process* No portion of the main program is 
available to any segment; likewise, no portion of one segment is avail- 
able to another. Only the main program or one segment resides in 
central memory at a time. Arguments may be passed between the main 
program and a segment or between segments only through blank or numbered 
common. A segment may be called for execution more than once but the 
main program should not be recalled since it clears common and the buffers* 
The maximum amount of numbered or blank common used by any segment must 
either be declared within the main program or on the RUN card. No dlag« 
nostic will result if a segment declares more common than has been 
previously reserved. A portion of the segment would in that case l^e 
overlayed with common. 

A job that requires segmentation must have a main program. Initiali- 
zation code for a program clears common and the I/O buffers. For each file 
designated on the PROGRAM card a buffer is allocated and the names, number, 
and order of these files must agree for each SEGMENT card. The segments 
are separated in the job deck by end-of- record (7-8-9) cards. These 
records are compiled and written on the disk as Individual named files. 
The name of which is the word following segment on the SEGMENT card. 
Therefore, if the job deck consisted of a main program and five segments 
(each separated by an end-of- record card), there would be six named files 
on the disk for this job. 
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Segments are called for execution by the statement CALL CHAIN (seg), 
where seg is the name appearing on the SEGMENT card. During compilation 
a calling .sequence which passes the address of the segment name inBl 
to the subroutine CHAIN is generated. The subroutine fetches the segment 
name at execution time and sends a request to CIO (circular input/output) 
to rewind the file before it is loaded into central memory. Certain 
parameters must be initialized before calling CIO so CHAIN sets them in 
the first five executable words of the calling routine. That is, the 
CIO buffer parameters are stored in the calling routine beginning at 
RA+2+n where n is the number of I/O files declared. 

A dayfile message informing the user of which segment is next to 
be executed is made by MSG (peripheral package). A limit of lOOB 
messages is standard so if many' segments are called and the MESSAGE LIMIT 
error is reached with of two system changes will solve the problem: 

a) increase the limit in MSG. 

b) remove the call to MSG in CHAIN so that no segment calls 
are entered into the dayfile. 

Another peripheral package EXU (executed compiled program) is used to 
locate the file with the requested segment name on the disk and read it 
into central memory. The file is loaded beginning at relative zero (RA) 
so that there is no linkage of segments. Only one segment (that portion 
of the job deck between two end-of- record cards) resides in central 
memory at a time. EXU also requests the central processor to begin 
executing the new file in central memory. 



CIR-I 



CIR 



CIR is called to compile read instructions. The tag of the desired 
read along with a mode indicator and an index assignment, if any, 
are specified in X6 upon entry in the following format: 
^2 18 3 



M indicates the mode of the tag and can range in value from one to 
seven. It is examined and directs the processing in the following 
order and essentially controls the type of instructions compiled. 
M=7 This implies that the tag portion of X6 is a value rather than 
a tag. If the value is zero, a MXi instruction is compiled 
to set the value of Xi to zero, while if the value of the tag is 
minus zero, a MXi 60 is compiled to set the value of Xi to 
minus zero, CIR then exits. 

M=5, 6 This indicates that the tag portion of X6 is a double or complex 

tag and thus requires the fetching of two central memory words. 

If the address of the tag is assigned to an index register 

(B will be the index register the address is in) a SAi Bj 

is compiled. If B is zero, the A register associates are searched 

to see if the address is associated with an address register. 

If so, a SAi Aj is compiled. If not, a SAi TAG is compiled. 

The tag itself is examined to see if it is an indirect or location 

tag. If so the instruction just compiled will be reading an 

address and a SAi Xi is compiled to bring the desired value to 

Xi. Then a SA,..,n Ai+1 is compiled to fetch the second part 
(i+l) 

of the double or complex number. The Xi and Ai register 
associates are set to this tag. 

M=3 This indicates that the tag portion of X6 is a number whose value 
is less than 2 . The X register associates are searched to see 
if this value is already in an X register. If it is, a BXi Xj is 
compiled and if not a SXi CONSTANT is compiled. In either case, 
the Xi register associate is set to this value before CIR exits. 
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If the mode of the tag was not one of the above, it is assumed 
to be a tag for a logical, integer, or real value and will 
require the fetching of one central memory word. The same 
method of determining, the type of instruction to be compiled is 
employed as when the mode was double or complex (5,6) except 
that the final SA^^^^^ Ai+1 la not compiled. 



Subroutin es Called ; ALX - Assign Long Register 

ANI - Analyze Possible Index Read 
ANR - Analyze Read Tag 



Temporaries /Fla^s : 



BIT - Bypass Interregister Transfer Indicator 

INL - Logical If Indicator 

INN - Mode Indicator for Read 

RGX - Long Register Assignment 

VTA - A Register Associates 

VTY - X Register Associates 



Tables Referenced : None 



Entry /Exit Register Conditions : 

42 

Entry: X6 » 



Exit: X6 s 



TAG 



18 



B 



B - Index Assignment 
M - Mode Indicator 

t 

Register Assignment 



M 



CKD - 1 



CKD - CHECK MISSING DO NU>ffiERS 

The DO Number Table is searched to see if there are any entries left that 
are not pseudo DO numbers. If there are, this indicates missing DO 
numbers and these are listed. 



Subroutines Called ; WST - Write Special Tag 

Temporaries /Flags ; None 

Tables Referenced : DO Number (G) 

Entry /Exit Register Conditions ; None 
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CKL - CHECK MISSING SUBROUTINES 

The list of subroutines requested via the CLL call is examined to see if 
there are any missing. This will be noted because of the fact that none 
of the missing ones will have a starting address and those missing sub- 
routines will be listed. 



Subroutines Called ; WST - Write Special Tag 
Temporaries /Flags ; None 
Tables Referenced : None 

Entry /Exit Register Conditions ; 

Entry: Bl - start of the list of routines requested via CLL 
Exit ; None 



CLL-1 
CLL - PROCESS CALL STATEMENT 

A CALL statement transfers control to a subroutine. Actual parameters may be 
exchanged between the calling program and the subroutine. No more than 60 
parameter may be passed and successive calls to the same routine do not have 
to agree in the number of parameters used. Galling a subroutine with more actual 
parameters than formal parameters specified causes a diagnostic during compila- 
tion. A function call is compiled in the same manner as a subroutine call 
except that a value is returned in X6 from the function which must be saved 
upon reentry to the calling program. 

A full word is reserved for each parameter on a SUBROUTINE or FUNCTION card. 
Each of these words receive a location tag during compilation. The first six 
arguments in a call are passed through index registers B1-B6 and the remaining 
addresses are compiled to be stored via external tags in their corresponding 
reserved word, which has a location tag, in the subroutine. Initial instructions 
in the subprogram pack the addresses, three per word, from the index registers 
in two temporary cells. Bl is saved in the lowest 18 bits of the first word 
with B2 and B3 packed in the next two 18 bit portions. The next temporary 
cell holds B4-B6 with the address in B4 residing in the lowest 18 bits. When 
^^r. ^e t-T-ooo T>o/-Vo<i aHH-reccf»G ts nftpHftd and Is not available in the index 
register, then the proper temporary cell is read and the address is unpacked. 

Two Fortran subroutines CHAIN and DUMP/PDUMP are specifically processed by CLL. 
The name of the segment called by CHAIN is replaced by a constant tag and the 
name is entered into the constant value table. A DUMP/PDUMP indicator is set 
for calls to these subroutines. After these initial checks and replacements 
are made, a call to CHAIN or DUMP/PDUMP is processed as any other subprogram 
request. 

Only a routine with an external or a location tag may be called. The subroutine 
name is entered in the subroutine name table and may have the same name as the 
program. There will be no conflict because the program name is the first entry 
in the subroutine name table, so another entry is made for a subroutine name 
that is the same. When an actual parameter is the name of a function or sub- 
routine, that name must also appear in an EXTERNAL statement in the calling 
program. This statement causes an external or library tag to be generated for 
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the subprogram name. This name will have a location tag in the subprogram 
called which used the name as an argument. Therefore, the name of the sub- 
program being called may have only a library or location tag. 

A call that has arguments allows an arithmetic statement function as an argument. 
TIQ translates the individual arguments into appropriate tags, or constants. 
The segment called by CHAIN has already been given a constant tag. Any 
arithmetic expression or subscripted variable will not be evaluated but each 
portion of the expression will be replaced with the tag generated by a 
previous definition or assigned a tag at this point. 

UNP directs the processing of expressions imbedded within parenthesis and 
function references. The outermost set of parentheses are removed and temporary 
tags are generated to save the information. A call is compiled to the function 
referenced whether it be an arithmetic function or a function subprogram and 
the answer which is returned in X6 is saved. (CRF is called by UNP for this 
purpose) , 

Upon return from TIQ and UNP, all the arguments have been replaced with tags, 
the function references processed, and the arithmetic expressions simplified by 
removing the imbedded parenthesis. PRR (process function/ subprogram reference) 
is called to pass the addresses of the arguments to the subprogram. Any sub- 
scripted variable has the variable and subscript replaced with one tag when the 
array address is determined in the SAD (sense and process single array address) 
routine. The arithmetic expression partially processed by UNP is completely 
evaluated by CXP (compile expression). The expression is replaced in the string 
buffer by a temporary tag which saves the result of the expression. When all 
the arguments have been evaluated, the addresses of the first six are set into 
index registers B1-B6, and -the remaining ones are to be stored in their 
corresponding reserved word via an external tag, A DUMP/PDUMP call causes the 
number of arguments to be passed in B7 and the field length to be set in XO. 

If the subprogram called was not an argument to the subroutine, then a return 
jump to the subprogram is compiled. The return jump instruction is forced to 
the upper portion of the word. The lower 30 bits contain the number of 
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arguments in the reference to the subroutine and a tag corresponding to the 
location of the first word of the calling program or subroutine. The contents 
of the word has the subroutine^ name in the left adjusted display code if the 
reference is from a subroutine; otherwise, the location is actually RA, which 
will be zero, if the call is made from a program or segment. Example - 

0100 S00600 

0715 L00002 
where S00600 is location of the entry/exit word of the subroutine 
15 is the number of arguments in the call 

L00002 is the location of the name of the subroutine. 

A subroutine used as an argument is a special case. Instead of entering the sub- 
routine via a return jump, instructions are compiled to insert the proper return 
address in the entry/exit line and generate an unconditional jump to the first 
executable instruction of the subroutine. In this way a subprogram may call any 
one of many subroutines depending upon the argument passed from the main program. 
Each of the subroutines used as an argument to the subprogram must have been 
declared external to the main program - otherwise the argument Is assumed to be 
a simple variable. 

When the call to the subroutine has been generated, then instructions are compiled 
to restore the argument addresses to index registers if the called subroutine 
was used as an argument to this subprogram or a function was used as an argument 
in this call, PSN is called to process the next statement when the call statement 
processor has completed. 



SUBROUTINES CALLED: 



TEMPORARIES/FLAGS 



ADF Advance Table 

GLT Clear Temporary Table 

CRI Compile Restore Instruction 

PPR Process Function/ Subprogram Reference 

SCT Scan Table 

TAB Normalize Statement 

TIQ Translate Individual Quantities 

UNP Unpack Parenthesis 

ARF Argument Reference Count 

FAG Function Argument Use 

FSR Function Statement Reference Count 

ICE Multiple Statement Count 
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INF DUMP/PDIMP Indicator 
RJC Return Jump Count 
SIR Subroutine Reference Count 
TEA A Table parameters 
TBB B Table parameters 
TBM M Table parameters 
TBS S Table parameters 
TBU U Table parameters 
TGK Constant Tag 
TGL Library Tag 
TML Argument Count 
TMM Subroutine Name 
TMN Subroutine Tag 
TABLES REFERENCED: Constant Name (A) 

Constant Tag (B) 
Variable Name (M) 
Variable TAG (N) 
Array Tag (E) 
Subroutine Name (S) 
Subroutine Tag (T) 
Subroutine Parameter (U) 
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CNF - COMPILE NORMAL FORMUIA 

CNF is entered when SFO detects an arithmetic replacement statement. It 
controls the processing of the statement, the conversion of the expression 
evaluation to that of the answer, and the storing of the answer. 

Upon entry, the last statement is checked to see if it was a conditional 
statement and if so, the expression is cracked immediately. If it 
wasn't the current jump cell (CJP) is examined. If there was a current 
jump, the cell is cleared and the expression is cracked. If there was 
no current jump, but there was a statement number, the expression is 
cracked. Otherwise, the continue indicator is cleared and if the 
last statement was not a CONTINUE, X7 is cleared to wipe out any program 
tag. 

In order to evaluate the statement, TAB is called first to normalize 
the statement, TIQ is called to change the variables and constants to 
tags and then UNP is to control the compilation of instructions to 
evaluate and save all portions of the expressions that were imbedded 
in parentheses. Upon return from UNP, all expressions that were in 
parentheses are replaced with temporary tags, 

.A check is then made to see if the expression was a simple one. If so, 
and the right side is a constant, an instruction is compiled to set 
X6 to this constant and then go to the portion of the routine that 
takes care of converting and storing the answer. 

If the right side was not a constant, but rather represented by a 

temporary tag, an attempt is made to delete a store. If the store 

is deleted, an attempt is made to delete a 106 instruction if there 

was one. Then the answer is converted and stored. If the right side was 

not represented by a temporary and was not a constant, or if it was a 

temporary but the last instruction did not store the 

answer into this temporary, CXP is called to compile instructions to 

evaluate what is left of the arithmetic expression. 
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Thus, CXP is the routine that finally compiles the last of the statement 
and brings the answer to X6 (and X7 if mode of expression is double or 
complex). An attempt is made to delete an extra 106 instruction by- 
making the result of the last arithmetic operation X6. Instructions are 
then generated to convert the mode of the calculated answer to that of 
the left number of the statement if they are necessary. 

The answer is now in X6 (and X7) and is ready to be stored in memory. 
If the address that the answer should be stored in is in an index 
register or if the address does not have to be calculated CIW is called 
to compile the proper write instruction and CNF exits to PSN (Process 
Statement Number). Otherwise, a search backwards of the compiled 
instructions is made to see if there is a register free between the 
present location and that of the temporary store of the address for the 
answer. If there is, an attempt is made to delete this address store 
and use the address as it is in the register. Otherwise, CIW is again 
called to compile the proper store instructions and then an exit is made 
to PSN. 



Subroutines Called ; ALX - Assign Long Register 

CIW - Compile Write Instructions 

CXP - Compile Expression 

TAB - Normalize Statement 

TIQ - Translate Individual Quantities 

UNP - Unpack Parenthesis 

Temporaries /Flags ; CJP - Current Jump Indicator 

INK - Continue Indicator 
RGX - Long Register Assignment 
STN - Statement Number 

Tables Referenced ; None 

Entry/Exit Register Conditions 

Entry; B6 f zero if this is part of a conditional statement 
Exit ; None 
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C(M - PROCESS COMMON LIST 

When the MAA (Process Machine or Ascent Records) subroutine encounters 
a COM declarative, the CCM subroutine (Process Common List) is called. 
The COM declarative permits the programmer to allocate blank common 
storage by indicating the number of words and an identifier for the 
first word of the array. An example of the CCM declarative together 
with the basic steps in processing the list is shown in Figure CCM-1. 

On entering the COM subroutine, the TAB subroutine is called to normalize 
the list. If the mode indicator shows anything other than FORTRAN II, 
a zero block name is entered into the Common Name Table (Table 0), The 
Variable Name Table (Table M) is scanned to determine if the identifier 
has been previously entered and, if not, the identifier is entered into 
the Variable Name Table, If the variable has previously been entered in 
the Variable Name Table, an error exit (Duplicate Tag Error) occurs. 
The variable name is also checked to insure that the first character is 
alphabetic and that the name is composed of two or more characters. 

Next, a check is made for the equal sign, and the CVN (Convert Number) 
subroutine is called. A machine constant error exit is taken if the 
constant is negative or greater than 2 -1. If the constant is in the 
proper range it is stored in the Array Parameter Table (Table Q). An 
Array Tag (W-tag) is generated and stored in the corresponding Array 
Tag Table (Table P) and Variable Tag Table (Table N). 

Processing of the list entries continues in the manner described above 
until a right parenthesis, indicating the end of the list, is encountered. 



Subroutines Called ; ADF - Advance Tables 

CVN - Convert Octal and Decimal Numbers 

SCT - Scan Table 

TAB - Normalize Statement 



C(I)M DECLARATIVE PROCESSING 
EXAMPLE^ COM{bi-I, B2-2 , b3=3) 

1. STORE VARIABLE NAME IN VARIABLE NAME TABLE 

2. CHECK FOR EQUAL SIGN 
^ 3. CONVERT CONSTANT 

4. STORE CONSTANT IN ARRAY PARAMETER TABLE 

5. IF NEXT CHARACTER IS A COMMA, REPEAT 1 - 5 

6. CHECK FOR A RIGHT PARENTHESIS 

7. RETURN FOR THE NEXT SOURCE CARD 



OQ 
C 
H 
fl> 

O 

9 
i 



o 

I 
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Temporaries /Flags ; MOE - Program Mode (set) 



Tables Referenced: 



TBM - Variable Name 
TBN - Variable Tag 
TBO - Common Name 
TBP - Array Tag 
TBQ - Array Parameter 



Entry/Exit Register Conditions 



CON-1 
CON - PROCESS CONSTANT LIST 

When the MAA (Process Machine or Ascent Records) subroutine encounters 
a CON declarative, the CON subroutine (Process Constant List) is called. 
The CON declarative stores the constant in the list and tags the storage 
location with the identifier in the list. An example of the CON 
declarative together with the basic steps in processing the list is 
shown in Figure CON-1. 

On entering the CON subroutine, the TAB subroutine is called to normalize 
the list. The Variable Name Table (Table M) is scanned to determine if 
the variable which has been equated to the constant has been entered, and, 
if not, the variable is entered in the Variable Name Table. If the 
variable has previously been entered in the Variable Name Table, an 
error exit (Duplicate Tag Error) occurs. The variable name is also 
checked to insure that the first character is alphabetic and that the 
name is composed of two or more characters. 

Next, a check is made for the equal sign, and the CVN (Convert Number) 
subroutine is called. The constant is stored in the Hollerith Word 
Table (Table A), and a Constant Tag (K-tag) is generated and stored 
into the corresponding Hollerith Tag Table (Table B) and Variable Tag 
Table (Table N). 

Processing of list entries continues in the manner described above 

until a right parenthesis, indicating the end of the list, is encountered. 



Subroutines Called : TAB - Normalize Statement 

SCT - Scan Table 
ADF - Advance Table 
CVN - Convert Octal and Decimal Numbers 

Temporaries /Flags ; TGK - Constant Tag (set) 



C0N DECLARATIVE PROCESSING 
EXAMPLE' C0n(cI =25,C2== 7773^ C3= 6. 54 E-2) 



1. STORE VARIABLE NAME (e.g., CI) IN VARIABLE 
NAME TABLE 



2. CHECK FOR EQUAL SIGN 

OQ 

S 3. CONVERT CONSTANT 

n> 

o 
o 

? 4. STORE CONSTANT IN CONSTANT VALUE TABLE 



5. IF NEXT ENTRY IS A COMMA, REPEAT 1-4 

6. CHECK FOR RIGHT PARENTHESIS 

7. RETURN FOR NEXT SOURCE CARD 



i 

N5 
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Tables Referenced ; TBM - Variable Name Table 

TBA - Constant Table 
TBB - Constant Tag 
TEN - Variable Tag 

Entry /Exit Register Condition ; DM 

Note; Error Exits; EMT - Machine Tag Definition Error 

EMD - Machine Duplicates Tag Error 
EMF - 1 Format Error 
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CRF - COMPILE FUNCTION REFERENCE 

CRF is called to control the processing of a subroutine or function 
reference. Upon entry, the string entry containing the tag for the 
function Is specified. Control will be routed to three routines 
depending upon the type of subroutine reference. If it is a built-in 
function, PBR is called to evaluate it; for an arithmetic statement 
function, PFR is called while PRR is called for a function/subprogram 
reference. Upon return from these routines, CRF will exit. 



Subroutines Called ; PBR - Process Built-in Function 

PFR - Process Statement Function 
PRR - Process Function-Subprogram 

Temporaries /Flags ; TML - Argument Count for Call 

TMM - Name Tag for Call 
TMN - Argument Tag for Call 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Entry; B5 + address of start of subroutine reference 
Exit; X7 = zero 
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CVN - CONVERT OCTAL OR DECIMAL NUMBER 

The CVN subroutine converts an octal or decimal number. It is used for 
constants in the address field of either a Machine or Ascent instruction. 
The unsigned constant is sent to DEC (Convert Decimal Number) and if the 
mode is Ascent, the sign is restored and a return to the calling program 
with the value in the X6 register occurs. However, if the mode is 
Machine, the B6 register is set to one and X6 contains the signed 
converted constant. Also leading blanks of the address field are com- 
pressed for machine instructions. 



Subroutines Called ; ' DEC - Convert Decimal Number 
Temporaries /Flags : MKE - Machine Instruction 
Tables Referenced ; None 

Entry /Exit Register Conditions : 

X6 - Converted Constant 
B6 - if Machine = 1 
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CXP - COMPILE EXPRESSION 

GXP controls the evaluation of all arithmetic expressions, whether the 
expression is part of an arithmetic replacement statement, in an argument 
list, or the arithmetic expression of an IF statement. The starting 
address of the expression is specified upon entry and instructions will 
be compiled to evaluate the expression until a left parenthesis or comma 
is found that is not part of an array reference, or until end of state- 
ment has been reached. 

Instructions are first compiled to calculate the address of all array 
entries within the expression. CSR ( Compile Subscripted References) 
is called to compile these instructions and it will bring the address 
of the array entry to a specified index register. As each array address 
is calculated, the actual entry in the string is changed to an indirect 
tag along with an indication of which index register the address in in, 
and the rest of the array entry is squeezed out of the string. After 
index register 6 has been used, AG is used to hold the next array address, 
B7 is used to hold the address of the last array entry and all addresses 
in between are saved in indirect cells. 

It is assumed that by the time CXP is entered, all addresses for array 
entries that appear more than once in the statement have already been 
calculated and saved in an indirect cell and GXP makes no check to see 
if this has been done. After instructions have been compiled to 
determine the address of all array entries in the expression and the 
entries have been replaced by tags, the expression is ready to be 
evaluated. The HEX routine is called first to evaluate any exponentials 
within the statement. It will compile instructions to evaluate these 
exponentials, and store the answer into a temporary cell. The string 
entry for the exponential will be replaced by this temporary tag and 
the expression will be squeezed down. Since HEX has to examine every 
entry in the expression, it will also determine the dominant mode of the 
expression and, if there are any logical relations, it will set the 
logical relation flag. 
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When HEX returns to the CXP routine, the logical relation f ]ag is checked 
and the HLR routine to handle logical relations is entered if any have 
been detected. Depending upon the dominant mode of the expression, CXP 
will then branch off to a routine to handle each mode. Generally, these 
routines are responsible for compiling instructions to evaluate the rest 
of the expression, converting all entries in the expression to the 
dominant mode if they are not in that mode already, and finally bringing 
the result of the expression to X6 and X7 if the dominant mode is double 
or complex. CXP will then change the last string entry of the expression 
to flag the dominant mode of the expression and exit. 



Subroutines Called ; AAR - Analyze Array Reference 

ANK - Analyze Address Generating Instructions 
for Right Number 

ALX - Assign Long Register 

BEX - Compile Simple Boolean Expression 

CSR - Compile Subscripted Reference 

FEX - Compile Simple Floating Expression 

HEX - Handle Exponentials 

HLR - Handle Logical Relations 

JEX - Compile Simple Integer Expression 

KEX - Compile Simple Complex Expression 

LEX - Compile Simple Logical Relation 

MEX - Compile Simple Double Expression 



Temporaries /Flags : 



ARI - Array Reference Count 

BIT - Bypass Interregister Transfer Indicator 

HIC - Highest Index Count 

ICL - Simple Logical Relation Indicator 

ICU - Index Tag 

ICV - Upcoming Statement and Unpack Indicator 

IGX - Current Index Assignment 

IM - Logical Relation Indicator 

INO - Dominant Mode Indicator 

INX - Upcoming Statement Indicator 

INY - Complete Unpack Indicator 
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SAR - Single Array Reference Count 

TGI - Indirect Tag 

TGT - Temporary Tag 

IMF - Start of Array Reference 

TMG - Expression of Index Assignment 

TMH - Start of Expression 

VTA - A Register Associate 

VTY - X Register Associate 

Tables Referenced; None 

Entry /Exit Register Conditions ; 

Entry: B5 - Address of the start of expression 
Exit : None 



CXP - COMPILE EXPRESSION (SIMPLIFIED) 



IS THE ARRAY REFERENCE 
COUNT ZERO ? 



NO 



YES 



NO 



READ STRING BUFFER ENTRY 
END OF STATEMENT REACHED? 



YES 



NO 



IS ENTRY ")" OR ",'» ? L 



YES 




a ) NEXT PAGE 



NO 



IS STRING ENTRY A "(>' ? 



YES 



IS THERE AN AVAILABLE 
INDEX REGISTER ? 



a. 



NO 



YES 



RJ COMPILE SUBSCRIPTED 
REFERENCE (COMPILE 
INSTRUCTIONS TO BRING 
ELEMENT ADDRESS TO B7) 



HAVE ALL ARRAY REFER- 
ENCES BEEN PROCESSED ? 



YES 



RJ COMPILE SUBSCRIPTED 
REFERENCE (COMPILE 
INSTRUCTIONS TO BRING 
ELEMENT ADDRESS TO B^) 



BRING NEXT ELEMENT 
ADDRESS TO A« 



REPLACE STRING ENTRY WITH 
TAG AND INDEX ASSIGNMENT 
(IF ANY): COMPRESS STRING 



I 



YES 



NO 



IS Aq AVAILABLE ? 



NO 



STORE NEXT ELEMENT 
ADDRESS IN INDIRECT 
LOCATION 



£2(E - COMPILE EXPRESSION 



I 



a) FROM PREVIOUS PAGE 



^ 



RJ HANDLE EXPONENTIALS 
(SET DOMINANT MODE 
INDICATOR) 



DID THE EXPRESSION CONTAIN 
ANY LOGICAL RELATIONS ? 



NO 



YES 



IS THIS A BOOLEAN EXPRESSION? 



NO 



IS THE DOMINANT MODE INDICATOR 
SET TO LOGICAL ? 



NO 



IS THE DOMINANT MODE INDICATOR 
^ET TO INTEGER ? 



NO 



IS THE DOMINANT MODE INDICATOR 
SET TO FLOATING-POINT ? 



NO 



IS THE DOMINANT MODE INDICATOR 
SET TO DOUBLE PRECISION ? 



NO 



IS THE DOMINANT MODE INDICATOR 
SET TO COMPLEX 



NO 



EXPRESSION FORMAT ERROR | 



RJ HANDLE LOGICAL RELATIONS 

~ I 



YES 



YES 



YES 



YES 



YES 



YES 



RJ COMPILE SIMPLE BOOLEAN 
EXPRESSION 



RJ COMPILE SIMPLE X.OGICAL 
EXPRESSION 



RJ COMPILE SIMPLE INTEGER 
EXPRESSION 



^b^ 



RJ COMPILE SIMPLE FLOATING 
EXPRESSION 



RJ COMPILE SIMPLE DOUBLE 
DOUBLE EXPRESSION 



RJ COMPILE SIMPLE COMPLEX 
EXPRESSION 



■> 



EXIT 



•» |exit 

■ H EXIT I 
- H EXIT I 

■» |exit 

EXIT] 



I 
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DEC - COIWERT DECIMAL NUMBER 

The DEC subroutine converts a decimal constant to its binary equivalent: 
it also checks for octal constants of the form nnn....nB. (Note: octal 
constants of the form ^imn,,,,n which appear in arithmetic statements 
are recognized by the Translate Variable subroutine.) DEC is called 
when a numeric entry is recognized in a DATA statement or arithmetic 
statement. On entering DEC, the string buffer address of the numeric 
entry is contained in the B5 register. When the TAB subroutine 
normalized the statement, it employed the ASN subroutine to pack digits 
into words. The ASN subroutines 'assembles up to seven digits per word 
so numbers in the string buffer may occupy several entries. For 
example, a 20 digit octal constant would appear in the string buffer 
as shown in figure DEC-la. Similarly, decimal constants may occupy 
several words. For example, a floating-point number such as 37. 84625 184E-40 
would appear in the string buffer as shown in figure DEC-lb. 

DEC searches the next three entries following the numeric entry to 
determine if the number is followed by a "B". If it is, the Convert 
Octal Constant (OCT) routine is called to convert the number. If the 
numeric entry was not followed by a B, this and succeeding entries are 
read, converted to binary, and packed in an assembly register. Con- 
version continues until a non-numeric entry is encountered or until more 
than 18 digits have been processed. The latter condition results in 
an error exit. The non-numeric which terminated this part of the con- 
versation is examined to see if it is a period (i.e., a decimal point): 
if it is not, then the constant is an integer constant. If the non- 
numeric is a decimal point, then the entries following the decimal 
point are read, converted to binary, and packed in the assembly register. 
Conversion again continues until a non-numeric entry is encountered or 
until more than 18 digits have been processed. The number of digits 
in the fractional part are saved to be used later in computing the proper 
exponent value, and the assembled binary number is converted to 
floating-point and normalized. 
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Figure DEC- la: FORMA.T OF A 20-DIGIT 
OCTAL NUMBER IN THE 
STRING BUFFER 
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Figure DEC- lb: FORMA.T OF A FLa\TING- POINT CONSTANT, 
37.84625184E-40, IN THE STRING BUFFER 
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The non-numeric entry which terminated the conversion of the fractional 
part of the number is then examined: if it is a D or an E, the sign 
of the exponent is stored and the exponent converted to binary. This 
exponent is then combined with the number of digits in the fractional 
part of the nximber, and converted to the appropriate powers of two. 



Subroutines Called ; OCT - Convert Octal Constant 

Temporaries /Flags ; none 

Tables Referenced ; Table of Powers of 10 (REG) 

Entry /Exit Register Conditions 

Entry: B5 = address of nimieric entry in string buffer 

Exit: B5 = address + 1 of last entry processed (i.e., the 
string buffer address of the entry following 
the number) 

X6 = number 

X2 = (second word of a double precision conversion) 

B6 = Mode Indicator 

Note: The mode indicator is set as follows: 



Mode 


Constant 


1 


Octal 


2 


Integer 


4 


Floating Point 


5 


Double Precision 
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FIN - FOSM INSTRUCTION 

In the processing of Ascent or Machine records, an intermediate langioage 
is generated and stored in the string buffer. The FIN subroutine forms 
the octal instruction by examining the string buffer which has been 
flagged by the KDA routines. FIN first determines if the instruction 
is a long (30-bit) instruction. An equal sign in column 8 and either a 
positive result in the TOS Table look-up or entries 0-3 of the TCI Table 
look-up (see Appendix B) are 30-bit instructions. For these long 
instructions, FIN can determine the instruction by examining columns 7, 
12 and 13. If column 7 is a P or R and column 12 is a period, then 
column 13 defines which 03 instruction should be formed. The X, A and 
B registers are always indicated by an A, C or B respectively, and a 
K address is flagged with a 6. If column 7 is a F or R and column 12 
is not a period, then column 12 describes instructions 04-07. 

If column 7 is an A, C or B, it describes the resultant or "i" register 

and a table look-up provides the exact instruction. The tables searched 

are TOI for instructions 50-77, TOP for instructions 11-13, 15-17, 

30-42, 44-45 and TOS for 10, 14, 20-27, 43, 47 and certain long instructions 

with implied XO registers (see Figure EDA-1 for the flags corresponding 

to given instructions). Once the instruction is selected, a jump to 

FSI (Form Short Instruction) or FLI (Form Long Instruction) is taken. 

Entry conditions are the flagged string. III, JJJ and iOCK register 
constants. X5 contains tl^ K value where applicable and X7 contains 
the current word address. Calls to further routines cooibine the opcode 
and registers. 



Subroutines Called ; SCS - Special Search 

FSI - Form Long Instruction 
FLI - From Short Instruction 
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Temporaries /Flags 



III - i Portion of Machine Word 
JJJ - j Portion of Machine Word 
KKK - k Portion of Machine Word 



Tables Referenced; 



TOI - Table of Format Checks on Instructions 50-77 
TOP - Table of Identifying Characters 
TOS - Table of Special Formats 
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FLI - ASSEMBLE LONG INSTRUCTION 

When the FIN (Form Instruction) subroutine encounters a 30-bit Ascent 
or Machine instruction, the FLI subroutine is called. The FLI routine 
assembles these instructions as a 6-bit opcode, a 3-bit resultant 
register, a 3-bit operand register and a 15-bit address. Then it 
arranges these instructions in the parcels of a 60-bit machine word. 
If an RJ instruction is found, a full word is indicated. Upon entry, 
XO contains the opcode right- justified, Bl and B2 contain the resultant 
and operand registers respectively. FLI calls the CDC (Convert 
Instruction or Constant Tag to Display Code) subroutine to form and 
insert in the output buffer the display code equivalent for this 
instruction. Next, the routine checks the intraword count and if the 
30-bit instruction cannot be inserted, a call to the ARA (Adjust Address 
and Write Registers) subroutine is made and the 30-bit instruction goes 
to parcels and 1 of the next word. If the 30-bit instruction can fit, 
a test is made to properly place this instruction and the intraword 
counter is incremented by 2. Upon exit from this routine, both the 
display code and binary forms have been recorded. 



Subroutines Called ; CDC - Convert to Display Code 

ARA - Adjust Address and Write Register 

Temporaries/Flags ; ICT -Intraword Instruction Counter (set) 
Tables Referenced ; None 

Entry /Exit Register Conditions ; 

XO opcode (binary) 

Bl - i portion of instruction else 

B2 - j portion of instruction 

X7 - current instruction word address 
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FSI - ASSEMBLE SHORT INSTRUCTION 

When the FIN (Form Instruction) subroutine encounters a fifteen bit 
Ascent or Machine instruction, the FSI subroutine is called. The FSI 
subroutine assembles a six bit opcode, three bit resultant register (i) 
and tv7o three bit operand registers (j, k), then stores the display code 
equivalent in the output buffer. Upon entry into this routine, XO 
contains a table (TOP, TOS or TOI) entry, :!£ bit 18 of XO is set then 
a test is made on bits 6-11, if 6-11 are zero, Bl, B2 and B3 contain 
the correct ijk register respectively. If bits 6-11 are equal to one, 
then X5 contains the corrected values for the i, j and k registers and 
if bits 6-11 equal two, the j and k registers must be interchanged. 
These bits may contain another value only if the i and j registers are 
equivalent. If bit 18 is not set, then Bl, B2 and B3 contain the i, 
j and k registers and XO contains the octal op code. A call is made 
to CDC (Convert Instruction or Constant Tag to Display Code) then a 
check is made as to the correct parcel in the current word. Since 
only one fifteen bit instruction is assembled, the intraword counter 
is incremented by one. Upon exit from this routine, both the display 
code and binary forms of the instruction have been recorded. 



Subroutin es Called ; CDC - Convert Instruction or Constant Tag to 

Display Code 



Temporaries /Flags ; ICT - Intraword Counter (set) 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Bl resultant register 

B2 first operand register 

B3 second operand register 

XO opcode 

X5 register values under certain conditions 

X7 current instruction word address 
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HOL - PROCESS HOLLERITH LIST 



When the MAA (Process Machine or Ascent Records) subroutine encounters 
an HOL declarative, the HOL subroutine (Process Hollerith List) is 
called. The HOL declarative allows a ten character group to be stored 
in display code and tagged with an identifier. An example of the HOL 
declarative together with the basic steps in processing the list is shown 
in Figure HOL-1. 

On entering the HOL subroutine a jump is taken to ASV (Assemble Variable) 
to isolate the identifier. If the identifier is not followed by an 
equal sign an error exit (Machine Format Error) is taken. The identifier 
is also checked to insure that the first character is alphabetic and 
that the identifier is composed of two or more characters. Then the 
Variable Name Table (Table M) is scanned to determine if the identifier 
had been previously entered, and, if not, the identifier is entered into 
the Variable Name Table. If the identifier had previously been entered 
in the Variable Name Table, an error exit (Duplicate Tag Error) occurs. 

Next, ten characters are assembled from the string. These ten characters 
are entered into the Hollerith Word Table (Table A). A Constant Tag 
(K-tag) is generated and stored into the corresponding Hollerith Tag 
Table (Table B) and Variable Tag Table (Table N). 

Processing of the list entries continues in the manner described above 
until a right parenthesis, indicating the end of the list, is encountered. 



Subroutines Called ; ASV - Assemble Variable 

SCT - Scan Table 
ADF - Advance Table 

Temporaries /Flags ; TGK - Constant Tag (set) 
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HOL DECLARATIVE PRO C E5 SING 
EXAMPLE : HOL 



(^HI^ABCDEFGHIJ^ H 2 =I23^S^ZS90) 



1. CHECK FOR AN EQUAL SIGN 



^ 1* STORE VARIABLE NAME (e.g., HI) IN THE VARIABLE NAME TABLE 



3. ASSEMBLE TEN CHARACTERS 

4. STORE. JHE HOLL:ERrTH -FIELD IN THE CONSTANT TABLE' 

5. GENERATE A CONSTANT TAG AND STORE IN TABLE 

6. IF THE NEXT ENTRY IS A COMMA, REPEAT 1- 5 

7. CHECK FOR A RIGHT PARENTHESIS 

8. RETURN FOR THE NEXT RECORD 
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Tables Referenced; TBM - Variable Name Table 

TBA - Hollerith Word Table 
TBB - Hollerith Tag 
TBN - Variable Tag 

Entry /Exit Register Conditions ; DM 

Note: Error Exits: EMT - Machine Tag Definition Error 

EMF - Machine Format Error 
EMD - Machine Duplicate Tag Error 



IFH 



IFH " PROCESS IF SENSE STATEMENT 



IFH is called from IFS when it is determined that the IF might be a 
SENSE SWITCH or SENSE LIGHT type IF. After some initial checking to 
see that the format of the statement is correct, and determining which 
type sense it is, the two branches of the statement are changed to tags. 
Instructions are then generated to read RA of the program, to mask off 
the declared switch or light (actually these are the same), and a zero 
jump is compiled to the second branch. If the statement was a SENSE LIGHT 
IF, instructions are compiled to turn this light on. Finally, instructions 
are compiled to jump to the other branch of the statement if it is not 
the same as the upcoming statement number, and control is transferred to 
PSN to process the statement number. 



Subroutines Called ; ASL - Assemble Letters 

ASN - Assemble Numbers 
ISN - Identify Statement Number 
CUN - Tag Upcoming Statement Number 

Temporaries /Flags ; None 
Tables Referenced ; None 

Entry /Exit Conditions ; 

Entry: None 
Exit: None 
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IFL - PROCESS LOGICAL IF STATEMENT 



IFL is entered once the IFS routine determines that the statement is not 
an I/O type IF and that the first entry past the right parenthesis is not 
a statement number. At this time, the last parenthesis is replaced by a 
zero entry to flag the end of the statement and the statement is normalized 
starting with the second parenthesis. The first parenthesis is replaced 
by an equals sign in order to simulate an arithmetic expression and the 
individual entries in the statement are translated to proper tags. UNP 
is called to control the evaluation of all portions of the expression that 
are imbedded in parenthesis. CXP is then called to complete the eval- 
uation of the 'expression. An instruction is compiled to count the number 
of ones in X6 and a zero jump instruction over the coding that will be 
generated by the evaluation of the rest of the logical IF statement is 
compiled. An attempt is made here to eliminate a BX$ Xi instruction if 
it was the last one compiled in the evaluation of the expression. The 
processed portion of the IF statement is changed to blanks, the address 
of the zero jump instruction is saved as the current jump and a return to 
the main routine is made at CPQ which is the return for a conditional 
statement. 



Subroutines Called ; CXP - Compile Expression 

TAB - Normalize Statement 
TIQ - Translate Individual Quantities 
UNP - Unpack Parenthesis 

Temporaries /Flags ; CJP - Current Jump 

TGH - Statement Tag 
TMO - Start of Conditional Statement 

Tables Referenced: None 
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Entry/Exit Register Conditions 

Entry: B3 = address of first left parenthesis in string 
B4 « address plus one of last right parenthesis 

Exit: B5 - 24B to flag a conditional atatement next 
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IFS - PROCESS IF STATEMENT 

The IFS routine controls the evaluation of an IF statement. The system 
allows four types of IF including the I/O checks, the SENSE SWITCH AND 
SENSE LIGHT checks, the logical type IF, and the normal arithmetic 
expression with two or three branches. The first seven characters past 
the first left parenthesis are extracted and a check is made to see if 
this might be a SENSE type IF. If so, control is passed to the IFH 
routine. If not a check is made to see if it is some type of I/O check, 
and if it is, it is evaluated within this routine. If it is not an I/O 
type IF, the first entry after the last right parenthesis is examined. If 
it is not a number, a logical type IF is assumed and control is trans- 
ferred to the IFL routine. 

I/O type IF: After extracting the tape ntimber and determining which type 
of I/O check is being made, the routine to compile tape 
handling instructions (PMT) is called. After returning 
from this routine, the call to the proper routine will have 
been compiled and then the proper tests will have to be 
generated. For an "IF(UNIT, '"" l/O check, tests are 
generated to jump to each one of the branches. The upcoming 
statement number is checked for the rest of the I/O checks 
and one of the test jumps is eliminated if possible. 

Normal IF: When it has been determined that it is a normal IF, the 

statement has been normalized and the first entry past the 
last right parenthesis is a number. In order to use the 
existing arithmetic statement processing^ column seven is 
changed to an equals sign, and the routine called UNF is 
called to control the processing of all portions of the 
statement embedded in parenthesis. CXF is then called to 
ccmplete the evaluation of the expression and the appropriate 
test jumps are then generated with checking for equal 
branches and branches the same as the upcoming statement 
number. Any unnecessary test jumps are thus eliminated. 
Control is then given to the PSN routine to process the 
statement number. 
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Subroutines Galled ; ASL - Assemble letters 

ASN - Assemble numbers 
ASV - Assemble variable 
GUN - Tag upcoming statement numbers 
CXF - Compile expression 
ISN - Identify statement number 
PMT - Gompile tape handling instructions 
TAB.- Normalize statement 
TIQ - Translate quantities 
UNF - Unpack parenthesis 

Temporaries /Flags ; TMI - First statement number 

TMJ - Second statement number 
TMK - Third statement nuaiber 

Tables Referenced; None 



Entry/Exit Register Conditionis 

Entry: B4 " First left parenthesis of statement 
Exit; None 
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ISL - IDENTIFY SYMBOLIC TAG 

The ISL subroutine is called when a symbolic tag is being processed by 
PTC (Process Tag and Constant). ISL checks the tag length; it must be 
less than six alphanwaeric characters, then the Argument Name Table 
(Table I) is scanned and if the variable is found to be there, a normal 
return is taken. If the variable does not yet appear in the table, a 
statement tag is generated and both the tag and name are sent to the 
Variable Name Table. The generated tag is returned in the X6 register • 



Subroutines Called ; SCM - Scan With Masking 

ADF - Advance Tables 



Temporaries /Flags ; TGH - Statement Tag 



Tables Referenced ; TBI - Argument Name Table 



Entry/Exit Register Conditions ; 
Entry: X6 - Variable Name 
Exit; X6 - Generated Statement Tag 
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ISN - IDENTIFY STATEMENT NUMBER 

The ISN subroutine searches the Statement Number Table (Table K) for a 
specified statement number and, if not found, enters it in the Statement 
Number Table. On entering the ISN subroutine, leading zeroes are 
deleted from the statement number, and the number checked to see if it 
is composed of more than five digits. If the number contains more than 
five digits, or contains a non-numeric character, an error exit (State- 
ment Number Error) occurs. If the number is a valid statement number, 
the Statement Number Table is searched: if the number is found in this 
table, control is returned to the calling program. If the number is 
not found in the Statement Number Table, it is entered in this table, 
and a statement tag (H tag) is generated and stored in the corresponding 
entry in the Statement Tag Table (Table L). Control is then returned 
to the calling program. 



Subroutines Called ; SCT - Scan Tables 

ADF - Advance Tables 

Temporaries /Flags ; TGH - Statement Tag (set) 

Tables Referenced ; Statement Number Table (Table K) 

Statement Tag Table (Table l) 

Entry/Exit Register Conditions 

Entry; X6 = Statement number 

Exit: X6 = corresponding tag from Statement Tag Table 
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KOT - CONVERT BINARY TAG TO MNEMONIC TAG 

The KOT subroutine converts the binary tag associated with the instruction 
to a mnemonic tag which is printed with a compiled listing. Input to 
the routine is from CDC (Convert Instruction or Constant Tag to Display 
Code) which places the binary tag left- justified in the XI register. 
Output is the alphanumeric tag in display code. Tags in the range of 
200000 to 600000 are converted by examining the upper 5 bits and 
selecting a letter (L, I, T, C, F, A, V, N or S) for this configuration. 
The sixth bit, if set, generates a 1 as the second character and if 
unset, generates a zero. The remaining four digits are merely converted 
to their display code equivalent. The program tag description given 
in the appendix shows the exact letter given above for any given numeric 
tag. 



Subroutines Called ; None 

Temporaries /Flags ; MOD - Machine/Ascent Indicator 

Tables Referenced; None 



Entry /Exit Register Conditions ; 

XI binary tag left- justified 
X6 mnemonic tag left- justified 
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LST - PROCESS INPUT/OUTPUT LIST 

The calling sequence to the execution time I/O routines is constructed 
by LST. The statement pi;ocessor, RIT (READ), WOT (WRITE), PNC (PUNCH), 
etc., decides from the form of the statement which execution time 
routine is to be referenced. Also, the file name from the logical unit 
parameter has been constructed and B3 contains the address of the format 
statement. 

At least three calls are made to the l/O subroutines - 1) initialization 
2) intermediate 3) termination. There will be an intermediate entry 
for each array or data item to be transferred. Naturally, an l/O 
statement without a list would have only two entries made to the sub- 
routine. The ENCODE/DECODE statements have a different initialization 
entry for their subroutines but the intermediate and termination entries 
are the same. The subroutines that will be referenced are: 

INPUTC for coded reading 

INPUTS for binary reading 

INPUTS for DECODE 

OUTPTC for coded writing 

OUTPTB for binary writing 

OUTPTS for ENCODE 

The calling sequence for these subroutines, except INPUTS and OUTPTS is: 

Initialization: Bl = 

B2 = address of parameter or complemented 
address of variable tape number 

B3 = address of format statement 

Intermediate: Bl = address of data item or beginning 

address of array 

B2 = array length or 
Termination: Bl = -1 
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For INPUTS and ODTPTS: 

Initialization I Bl = 

B2 = 

B3 = address of format statement 
B4 ■■ number of coded characters 

Initialization II Bl = address of packed data 

B2 = 

All files to be referenced within a program must be declared on the 
PROGRAM card. Each name is entered into the File Name Table. When- 
even a reference is made to a file, the location of the buffer parameter 
list may be retrieved from this table if the logical unit number is not 
a variable. The address is then set in B2 to be sent to the subroutine* 
In the case that the logical unit number may vary, PMD (Process Tape 
Medium for Input/Output) will pass the address of the variable in 
complemented form to the subroutine. The initialization entry to the 
subroutine is then made with Bl, B2, and B3 set accordingly. TSF 
(Tag Special Function) finds the tag associated with the subroutine to 
be called and this tag is used in the return jump instruction. 

TAB (Normalize Statement) removes unnecessary blanks, and packs the 
variables and constants into one-word string buffer entries. Replacing 
the variables with tags is done by TIQ (Translate Individual Quantities). 
A si^le variable address is set in Bl and B2 is zero unless the 
variable is double or complex in which case B2 >» 2. 

An implied DO-loop transfer makes an entry into the subroutine for 
each item in the array. Example: READ (25, 10) (T(I), 1=1, 8) causes 
the subroutine to be referenced eight times. However, if T had been 
dimensioned then READ (25, 10) T would transfer the whole array with only 
one entry becuase the array length is retrieved from the Array Parameter 
Table and set in B2. The implied DO-loop code is generated by BBL 
(Process Left Parenthesis) and HCL (Process Equal Sign). 

An array variable which is subscripted in the list requires GSR (Gompile 
Subscripted Reference) to fetch the address of the word within the array. 
This address is sent in Bl and B2 will be zero since only one word of 
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the array is being transferred. 

If the variable was an argument to the routine, then it would have a 
location tag. If this tag is not in the Array Tag Table, then it must 
not have been dimensioned. GAT (Compile Argument Address Pick) gets the 
address that was passed to the routine and sets it into Bl. 

A variable with a location tag that was found in the Array Tag Table 
may 

1) be followed by a subscript 

2) have had fixed dimensions and the entire array is to be transferred 

3) have variable dimensions and the entire array is to be transferred 

In the first case, the subscript is handled in the same way as an array 
that was not passed to the routine as an argument. GSR (Compile 
Subscripted Reference) compiled instructions to fetch the proper word 
within the array and this address is set in Bl. 

An array variable used as an argument which appears in a DIMENSION 
statement may have the dimensions as constants or variables. A variable 
dimension also enters the routine as an argument. If the dimensions are 
constants, then the array length of the variable is read from the Array 
Tag Table and saved in the Constant Value Table. CIR (Compile Read 
Instructions) is called to fetch this value as a different argument is 
passed to the routine. B2 is then set to this array length and the 
beginning address of the array is found by GAT (Compile Argument Address 
Pick). 

Variable dimensioned arrays have an entry in the Array Tag Table but 
the array parameters are given location tags instead of constant values. 
By scanning the Array Tag Table and checking the 2^^ bit of the corres- 
poinding entry, it can be determined whether or not the dimensions have 
location tags. Instructions are compiled to construct the length of the 
array. If it is a single dimensioned array, then just the address of 
the one variable is sent in B2. A two dimensioned array must use the 
product of these two variables as a length. So with three dimensions, 
another product of the third dimension and the first two necessary for 
the length. In all cases. the beginning address of the array is sent to 
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the subroutine In Bl and the length is set in B2. A double or conqilex 
variable always has an array length twice the size available from the 
Array Parameter Table set in B2. 

Hhen the last data item has been processed, then a final entry with Bl *» 1 
is compiled to the subroutine. CBI (Compile Restore Instruction) is called 
to restore the addresses of the arguments to index registers if there 
vere any arguments passed to the routine. 



Subroutines Called ; ADF - Advance Table 

ASV - Assemble Variable 

CIA - Clear All Registers 

CIR - Compile Read Instructions 

CRI - Compile Restore Instructions 

CSR - Compile Subscripted Reference 

GAT - Compile Argument Address Pick 

HCL - Process Equal Sign 

HBL - Process Left Parenthesis 

PHD - Process Tape Medium 

SCM - Scan Table With Mask 

SCT - Scan Table 

TAB - Normalize Statement 

TIQ - Translate Individual 

TSF - Tag Special Function 

TcBporaricg lflag» ; IMA - Pseudo Statement Muoiber 

TMD - Subroutine Tag 



TSsbleg B^erenced: 



Constant Value (A) 

Constant Tag (B) 

Array Tag (P) 

Array Parameter (Q) 
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Entry /Exit Register Conditions ; 

Entry: X4 - Subroutine Name 
X5 - Filename 
B6 - NZ if ENCODE/DECODE 
Exit : None 
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MM - PROCESSING MACHINE OR ASCENT RECORDS 

When the Run compiler interprets an Ascent or Machine header card, all sub- 
sequent records, without an * in column 1 until the next MD card, are 
processed by the MAA subroutine. HAA first concerns Itself with the 
operation field of the current record. Examining this field determines 
one of four types for this record (reference Figure MAA-1): 1) a constant 
or Machine register notation, 2) an Ascent mnemonic, 3) an Ascent pseudo-op or 
4) a Machine declarative or FORTRAN non-executable. 

The first group is processed in the MAA routine while the other three are 
linked with a series of subroutines. Upon determining a Machine 
operation or constant, MAA calls the PST (Process Location Tag) sub- 
routine to store and tag the statement label or suppress any leading 
blanks. Next, a check is made for a left parenthesis indicating a 
block reservation request. Several checks are made for the correct 
form for this instruction, if there is a positive decimal or octal 
number enclosed within parenthesis, followed by an end of statement, and a 
core overflow will not occur, then MAA allocates and initializes to 
zero the given number of cells, and a jump to a ccMnmon return area 
occurs . (reference Figure MAA-2). Should the type one processing encounter 
a constant, a jump is taken to ARA (Adjust Address and Write Register) 
to write the previous word. Thewa jump to TAB (Normalize Statement) 
reorders the string buffer and a jump to CVN (Convert Constant) stores 
the octal equivalent to the FORTRAN acceptable constant. If this section 
has been entered from another type processing a check is made on the 
'constants range. In any event, the ccamnon return area is entered, 
(reference Figure MAA-3). Sensing a dollar sign in the instruction 
field transfers control to the type 2 processing of a NO instruction. 
Another acceptable form for type 1 is the constant section header card. 
This card will cause a call to ARA (Adjust Address and Write Register) 
subroutine, set the instruction word counter, write blanks into the 
output buffer, write the record, read the next record, check for an 
end of file which is illegal at this point, then return to the main 
Run loop, (reference Figure MAA-4). 

Type 1 processing of a Machine register notation calls the PAF (Process 
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Additive Field) subroutine. This routine flags the string buffer with 
an intermediate language identical to RDA's processing of Ascent 
instructions (reference Figure RDA-1). If a tag or constant has not 
been processed, the PTC (Process Tag and Constant) subroutine is called, 
then FIN (Form Instruction) is called and the processing is continued 
as in type 2. 

The common return section indicates a full word has been processed| calls 
CDC (Convert to Display Code) for the output listing, writes the record 
into the buffer area, reads the next record, checks for an illegal end 
of file, then returns for processing this record. The return calls 
AFS (Assemble FORTBAN Statement) and if an * is found, the next record 
is read and checked; if not, MAA is re-entered from the Run main loop. 
The processing of type 2 Ascent mnemonics also calls the FST (Process 
Location Tag) subroutine then calls the KDA (Reduce Ascent Format) 
subroutine to flag the string buffer with an intermediate language 
(reference Figure KDA-1). A test is made to determine if the Ascent 
instruction had a constant or tag in the address field, or a literal 
in the instruction field. If the latter condition exists, control is 
transferred to type 1 processing described above. If the former 
condition exists, a call to PTC (Process Tag and Constant) will convert 
these fields before calling the FIN routine. If neither of the above 
conditions exist, then a direct transfer to FIN (Form Instruction) 
routine which interprets the string buffer and generates the 15 or 30 
bit instruction. These routines also store the binary word. Then 
the buffer is written and the next record read, checked fo% an end of 
file, and control returns to the Run main loop. 

Type 3 processing is merely a table look-up resulting in an imconditional 
transfer to an open routine which generally returns to the common return 
area of the type 1 processing (reference MA/l-5). These open routines are 
ACE (Process Ascent EQU), ACH (Process Ascent BCD and DPC), and ACH, AGK 
(Process Ascent CON). A transfer to this section without a find results 
in an error exit. 

The processing of type 4 instructions checks the relative position of 
the declarative or FORTRAN statement. These instructions must appear 
at the beginning of the program. If a FORTRAN statement is detected. 
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BLOCK fJESERVAT/ON RROCESS fNO 
EXAMPLE ; BLK 

* CHECK THE FORMAT 

• CONVERT THE CONSTANT 

c • INCREMENT THE RUNNING RELATIVE ADDRESS 

<t» 

^^ • CHECK THE TOTAL FIELD LENGTH 
INITIALIZE THE STORAGE AREA 
CONVERT TO DISPLAY CODE 



OUTPUT TO BUFFER 



INPUT THE NEXT RECORD AND RETURN FOR PROCESSING 



I 



OQ 

C 
H 



I 



CONSTANT SECT/ON PROCESSING 

example: : coni ts.G^iEoa 

NORMALIZE STATEMENT 
CONVERT THE CONSTANT 

• STORE CONSTANT INTO OUTPUT BUFFER 

• INDICATE FULL WORD INSTRUCTION 

• CONVERT TO DISPLAY CODE 

• TRANSFER TO OUTPUT BUFFER 

• READ VHE NEXT RECORD 

• IF NOT AN END OF FILE, RETURN FOR PROCESSING 



I 

4> 



•*1 

OQ 
C 
H 



CONSTANT HEADER CARD Rf^OCESS/ 
FORMAT - COLUUN 7- % 

CHECK FOR THE FIRST HEADER CARD 



NO 



SET CONSTANT SECTION FLAG 



WRITE BLANKS INTO THE OUTPUT BUFFER 



• READ THE NEXT RECORD 



IF NOT AN END OF FILE, RETURN FOR PROCESSING 



I 
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Additive Field) subroutine. This routine flags the string buffer with 
an intermediate language identical to RDA's processing of Ascent 
instructions (reference Figure RDA-1). If a tag or constant has not 
been processed, the PTC (Process Tag and Constant) subroutine is called, 
then FIN (Form Instruction) is called and the processing is continued 
as in type 2. (reference MAA-6). The common return section indicates a 
full word has been processed, calls CDC (Convert to Display Code) for 
the output listing, writes the record into the buffer area, reads the next 
record, checks for an illegal end of file, then returns for processing this 
record. The return calls AFS (Assemble FORTEAN Statement) and if an * 
is found, the next record is read and checked; if not, MAA is re-entered 
from the Run main loop. 

The processing of type 2 Ascent mnemonics also calls the PST (Process 
Location Tag) subroutine then calls the RDA (Reduce Ascent Format) 
subroutine to flag the string buffer with an intermediate language 
(reference Figure RDA-1). A test is made to determine if the Ascent 
instruction has a constant or tag in the address field, oir a literal 
in tlie instruction field. If the latter condition exists, control is 
transferred to type 1 constant processing described above. If the former 
condition exists, a call to PTC (Process Tag and Constant) will convert 
these fields before calling the FIN routine. If neither of the above 
conditions exist, then a direct transfer to FIN (Form Instruction) 
routine which interprets the string buffer and generates either a 15-bit 
or 30-bit instruction. The routines called by FIN store the binary word. 
Then the buffer is written and the next record is read, checked for an 
end of file which is illegal at this point and then transferred to the 
main loop of Run. 

Type 3 processing is merely a table look-up resulting in an unconditional 
transfer to an open routine which generally returns to the common return 
area of the type 1 processing (reference MAA-5). These open routines are 
ACE (Process Ascent EQU), ACH (Process Ascent BCD and DPC), ACR (Process 
BSS and BSSZ, ACK (Process Ascent CON). A transfer to this section without 
a find results in an error exit. 

The processing of type 4 instructions checks the relative position within the 
program of the declarative or FORTRAN statement. These instructions must 
appear at the beginning of the program. If a FORTRAN statement is detected. 



PSUEDO OPERATION PROCESSING 



example: tag a BSS 5 

BSSZ 7 
CON G.3 



EXAMPLE: TAGE EO^U 777 



^ 1. MOVE OPCODE TO COLUMN 7 OF THE STRING 

c 

^ 2. END STRING AT FIRST BLANK 



3. IF BSS/BSSZ: STORE A RIGHT 
PARENTHESIS IN THE STRING 



4. GO TO TYPE I PROCESSING 



1. PROCESS LOCATION TAG 



2. INSERT EQUAL SIGN 



3. GO TO TYPE IV (ABS) PROCESS 



ING 



EXAMPLE: TAGD BCD 7iA,A,,„A, -n^/o 
TAGF DPC ^A^.,, A^^ 

U PROCESS LOCATION TAG 

2. ACCUMULATE TEN CHARACTERS 

3. NORMAL EXIT IF IN CONSTANT SECTION 

4. ERROR EXIT IF NOT IN CONSTANT SECTION 

5. GO TO TYPE I PROCESSING 



I 



I 



MACHINE INSTRUCTION PROCESSING 



EXAMPLE : r=: ^C^TAG^ 



• PROCESS ADDITIVE FIELD 



{^" • PROCESS TAG OR CONSTANT, IF ANY 



FORM INSTRUCTION 



WRITE CODED RECORD 



READ NEXT RECORD 



IF NOT AN END OF FILE, RETURN FOR PROCESSING 



I 

00 



PROGRAM ORDER 



HEADER CARD 



'• FORTRAN CARDS, IF ANY 



DECLARATION CARDS, IF MACHINE HEADER CARD 



INSTRUCTION CARDS 



CONSTANT HEADER CARD 



CONSTANT CARDS 



END CARD 



ASCENT MNEUONIC Pl^OCESSING 



EXAMPLE : SXI = X4?4- TAG 



1. PROCESS TAG IN THE LOCATION FIELD 



2. REDUCE THE ASCENT CODE 



3. FORM THE 30-BIT or 15-BIT INSTRUCTION 



4. OUTPUT DISPLAY CODE TO BUFFER 



5. RETURN FOR THE NEXT RECORD 



I 
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then a transfer back to the RUN compiler is initiated to complete the 
processing. If a declarative is encountered, then a table look-up and 
jumps similar to type 3 processing occurs. These routines return to an 
unconditional transfer to the Run compiler. The routines involved in 
the six declarative processing are CON, COM, ABS, HOL, RES, and SUB. 

The common error exit for the MAA subroutine sets the buffer to a string 
of * and sets several flags. The next record is read and checked for an 
END card or a second END card which is processed by ENO; a single END 
card is processed by MND, and all other cards return to the Run compiler 
and APS then returns to MAA. 



Subroutines Called : Reference Figure MAA-7 



Temporaries /Fla^s ; 



ADM - Running Relative Address 

ICE - Dollar Sign Pointer (set) 

INJ - Continue Indicator (set) 

ICT - Intraword Instruction Counter (set) 

FLH - Subprogram Error Flag (set) 

FLF. - Job Error Flag (set) 

PNM - Program/Subprogram Name 

IWC - Number of Instruction Words (set) 

ZAA - Relative Start of Current Program or 
Subroutine 



Tables Referenced : 



MTB - Table of Tag-defining Operation Codes 
MTA - Table of Ascent Pseudo Operations 
TBJ - Argument Tag Table 



Entry /Exit Register Conditions: N/A 
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RUN COMPILER 
ASCENT' MACHINE ASSEMBLY 

MAIN SUBROUTINE CALLS 



OPEN 
a ^ CLOSED 
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MCA - MAKE REIATIVE CCMMON ASSIGNMENTS FOR FORTRAN IV 

This routine is called during the processing of the END card to make 
the common assignments. Upon entry, CTY (Common Block Type Indicator) 
is set to zero if blank common is to be processed, and set to one if labeled 
common is to be processed. After blank common is processed, the 
routine processes numbered common and then exits. The PCA routine 
(Process Common Assignments) calls this routine to make numbered and 
blank common assignments while the PUA (Process Unique Assignments) 
routine calls this routine to process labeled common. In the processing 
of common, the Common Name Table is searched until a non-eliminated 
block name is found. If the block has not yet been declared in a 
previous program or subroutine, the current common block relative address 
(in the case of blank common) or the base address of the variables (in 
the case of labeled common) is entered, along with the block name or 
number, into the Common Block Name Table. If the block was declared, 
its starting address is extracted from the Common Block Name Table. 
Each succeeding variable tag is examined and assigned memory location(s) 
until another block name is found or until the end of the table is 
detected. Each variable whose tag is not an address tag is entered 
into the J Table along with its relative address. If the variable has 
an address tag, it is not entered into Table J.. The Primary Name Table 
is then searched to see if any variables were declared equivalent to 
this one. If there are some, these entries in the Primary Name Table 
and Secondary Name Table are cleared. If the secondary tag is in the 
Variable Tag Table, the tag and address are entered into the J Table. 
Whether or not the tag is in the Variable Name Table, the block length 
is extended if the equivalences make it necessary. 

When all variables belonging to the block are processed, the limit 
address of the block is entered into the Common Block Name Table unless 
the block was previously defined. If it was previously defined, the 
limit address is compared to the previous limit address to make sure 
this address is not greater. If it is a diagnostic is given. The 
routine then exits. 
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Subroutines Called ; ADF - Advance Table 

SCT - Scan Table 

Temporaries /Flags ; BAV - Base Address of Variables 

CBA - Current Common Block Relative Address 

CTY - Common Block Type Indicator 

TB J - 

TBO - Table Parameters 

TBP - 

TBV - 

TMC - Free Temporary 

TMP - Current Extended Common Block Length 

TMQ - Current Common Block Name 

TMR - Base Address for Equivalence Group 

Tables Referenced ; Argument Name (J) 

Common Name (0) 

Array Tag (p) 

Common Block Name and Address (V) 

Entry /Exit Register Conditions; None 



MTU-1 



MTU - MOVE TABLES UP 

This routine is responsible for relocating the 26 temporary tables and 
adjusting the TBn parameters to reflect this change. It is called 
prior to processing of library subroutines and usually overlays the input 
buffer to make more room available for the loading of library subroutines. 



Subroutines Called: None 



Temporaries /Flags : None 



Tables Referenced : 



Argument Name (I) 

(Referenced because it is the first table) 

Program File Name (W) 

(Referenced because it is the last table) 



Entry /Exit Register Conditions ; 

Entry: Bl - how much the tables should be moved 
Exit: None 
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PAF - PROCESS ADDITIVE FIELD 

When the MAA (Process Ascent and Machine Records) subroutine encounters 
a Machine instruction, PAF is called to examine this instruction. 
This routine collects the terms, stores the register values in constants 
III, JJJ, and KKK, then converts the register notation to the notation 
used by RDA for the Ascent instructions (reference Figure RDA-1). The 
string buffer is flagged identically to the way RDA flags it so that FIN 
(Form Instruction) can be called to further process these Machine 
instructions. PAF uses the RCD Table look-up to convert the letters to 
the conventional A, B, and X registers. Error exits are taken if too 
many terms or a blank within the address field occurred. 



Subroutines Called ; TAB - Normalize Statements 

CVN - Convert Number 
ADF - Advance Tables 
ASN - Assemble Number 
ASV - Assemble Variable 



Temporaries /Flags ; 



III - i Portion of Machine Word 
TGK - Constant Tag 
JJJ - j Portion of Machine Word 
KKK- k Portion of Machine Word 



Tables Referenced ; RCD - Table of Operational-Register Codes 

TBA - Constant Value Table 
TBB - Constant Tag 



Entry /Exit Register Conditions ; 

B6 - non-zero if a tag or constant has not been processed 



PAT-l 



PAT - PROCESS ADDITIVE ADDRESS 

When the MND (Process Machine or Ascent End) subroutine encounters a 
tag plus a constant in the address field, the PAT Subroutine is called. 
The Variable Tag (V-tag) is in the upper 18 bits of the Argument Tag 
Table (Table J) and the Constant tag is in the lower 18 bits. These 
tags are merged together so that upon exit the X6 register contains 
the address of the location of the V-tag plus the constant. 



Subroutines Called : SCM - Scan With Masking 



Temporari es /Flags ; BAK - Base Address for Constants 



Tables Referenced : TBJ - Argument Tag 



Entry /Exit Register Conditions : 
X6 - Combined tag 
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PBR - PROCESS BUILT- IN- FUNCTION ELEFERENCE 

PBR is entered when a built-in function has been detected. It merely 
routes the processing to one of the other routines depending upon the 
number of arguments the built-in function has and whether or not it is 
a logical function. 



Subroutines Called ; CMA - Compile Multiple Argument Function 

COA - Compile One Argument Function 

CTA - Compile Two Argument Functions 

KMA - Compile Multiple Double Argument Functions 

KSF - Compile Special Logical Function 

Temporaries /Flags ; FIV - Start of the last of library functions 

Tables Referenced ; None 

Entry /Exit Register Conditions ; 

Entry:. B4 - address of string entry of function 
Exit : None 
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PCA " PROCESS COmiON VARIABLE ASSIGMSKTS 

This routine is called during the processing of an END card after the 
instructions have been packed and the constants moved into the program 
area. If any variables were declared commons the equivalence tables 
are searched to process variables which were declared equivalent to a 
variable in common. If the mode is FOSTSAN 1\\ the secondary name is 
removed from the common table and replaced by the primary name. If 
the mode is FORTRAN II the secondary name is replaced by the primary 
name and all equal primary names in the Primary lame -Table are changed 
to the secondary name. 

After the equivalence tables have been processed^ the relative common 
assignments are made by calling either the FORTRAH II routine (MKA) 
or the FORTRAN IV routine (EGA). The FORTRAN IV routine will first 
make blank common and then numbered common block assignments. When the 
memory assignment has been mde the variable tags and starting address 
will be entered into the J Table by HKA or MCA. This, routine will then 
set bit 16 of the address to flag them relocatable to the start of 
c oramon • 



Subroutines Called ; ADF - Advance Tables 

MCA - Make FORTRAN IV Relative Assignments 
CKA - Make FORTRAN II Relative Assignments 
SCT - Scan Table 

Temporari es /Flags ; CBA*- Current Common Block Relative Address 

CSA - Common Starting Address 
FLC - Program Common Field Length 
IPS - Program/Subprogram Indicator 
LBA - Latest Buffer Address 
MOD - Subprogram Mode 
MOE - Program Mode 
TBJ -" 

TBO - ^ Table Parameters 
TBV - 
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Table Parameters 



Tables Referenced ; Argument Name Table (J) 

Common Name Table (0) 
Common Block Name and Address (V) 

Equivalence Secondary Name (X) 

Equivalence Primary Name (Y) 

Equivalence Bias (Z) 

Entry /Exit Register Conditions ; None 
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PCT - PROCESS SPECIAL ARMY TAGS 

PCT is entered during the processing of the END statement to process 
any temporary array tags in the Temporary Tag Table. For each array 
tag in this table. Table J is searched to find the starting address 
of the array. The array address increment is added to the starting 
address of the array, incorporated with the corresponding permanent 
tag in Table C and then entered into the J Table. 

This type of entry is made when calculating array addresses such as 
A(H-10) = . 



Subroutines Called ; ADF - Advance Tables 

SCM - Scan With Masking 

Temporaries /Flags ; TBG - Table Parameters 

TBD - 

Tables Referenced ; Temporary Tag (C) 

Permanent Tag (D) 



Entry /Exit Register Conditions ; None 
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PFR - PROCESS STATEMENT FUNCTION REFERENCE 

PFR compiles instructions to transfer arguments to an arithmetic state- 
ment function and a return jump to the function. Two methods are employed 
in the passing of arguments. If the function does not reference any 
subroutines, the actual argument itself rather than the address is 
transferred to the space reserved for it at the start of the function. 
If the function does reference subroutines, the nximber of arguments is 
saved, the addresses of the first N arguments are transferred via 
index registers and the value of the remaining arguments are transferred 
to the reserved space. N will equal five minus the number of arguments 
and the first index used will be the number of arguments plus one. For 
example, if the function had four arguments, the address of the first 
two would be passed in B5 and B6 while the values of the last two would 
be transferred to the corresponding cells at the beginning of the function. 



Subroutines Called ; ADF - Advance Tables 

CIR - Compile Re 

CLA - Clear Index and Address and Input Tags 

CXP - Compile Expression 

GAT - Compile Argument Address Pick 

SAD - Sense and Process Single Array Address 

SCT - Scan Table 



Temporaries /Flags : 



ARG - Argument Count 

IGX - Index Assignment 

TBA - Constant Name Table Parameters 

TBB - Constant Tag Table Parameters 

TGK - Constant Tag Table Parameters 

TGL - Argument Count for Call 

TMM - Name Tag For Call 

TMN - Argument Tag for Call 

VTY - X6 Register Associate 



Tables Referenced; 



Constant Name (A) 
Constant Tag (B) 
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PGP - PROCESS SUBPROGRAM PARMffiTERS 



If the compilation mode is incomplete, the first part of the program 
is changed to the following format, with the needed information 
extracted from the table entries for each subroutine. The format of the 
first N+2 words where N is the number of parameters is as follows: 



Name 



jbuffer 
jstartjl 



addr. of 
first inst.(^ 



j^ll total length 1^ 



base addr, 
of temps, (<? 



no, of 
arguments 4, 



base addr, of 
constant tq 



base addr, 
of indirect; 



a 



addr. of jmode 

local var.5 0' / 



Si 



If the compilation mode is not incomplete, the name of the routine and 

the total length are entered into the first program location, the instruction 

word count entered into the Subroutine Parameters Table and also the 

total length. The start of the new short file is set and the unused 

space indicator is updated if need be. 



Subroutines Called; SCT - Scan Table 



Temp oraries /Flags ; 



BAI - Base Address for Indirects 

BAK - Base Address for Constants 

BAT - Base Address for Temporaries 

FST - Long File Start 

ICB - Argument Count 

ICM - Incomplete Compile Mode Indicator 

ICO - Base Address for Variables 

INT - First Instruction Address 

INV - Unused Compiler Space 

IWC - Number of Instruction Words 

MOD - Subprogram Mode 

PNM - Prog ram/ Subprogram Name 

TBI - 
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TBI - 

TBJ - Table Parameters 

TBS - 

ZAA - Relative Start of Current Program or 
Subroutine 



ZAB - Short File Start 

Tables Referenced ; Argument Name (I) 

Argument Tag (J) 

Subroutine Name (S) 

Subroutine Parameters (U) 
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PIG - PRINT INSTRUCTION GROUP 

This routine is called during the processing of the statement number 
and during the processing of the END card. It is responsible for 
listing all object code compiled for the last statement along with the 
current running address. The listing will correspond exactly to the 
actual program that is loaded into core for execution except that the 
K portions of the 30 bit instructions will necessarily contain tags 
rather than absolute addresses as the assignment of variables and 
temporary cells is not made until the subprogram is completely compiled. 

If no object listing is required, this routine merely calls PJG to process 
the group ending address and then exits. 

Otherwise, the instructions are examined one at a time. The current 
running address is updated and listed when it is detected that the 
examined instruction will not fit into the word that is presently being 
processed. The method of forcing instructions to start a new word is 
exactly the same that is used when the instructions are packed during 
the processing of the END statement. The 15 bit instructions are 
converted to display code and listed. If the K portion of the 30 bit 
instruction is a tag, the first two numbers of the tag, which describe 
which type of tag it is, are replaced by a letter and then the instruction 
is converted to display code and listed. If there is an address tag 
associated with the instruction, it is also listed. After all instructions 
have been examined, the execution address of the next instruction group 
is saved, a line of blanks is written and the routine exits. 



Subroutines Called; KOT - Convert Binary Tag to Mnemonic Tag 

PJG - Process Group Ending Address 
WNX - Write Coded Record 

Temporaries /Fla^s: ADM - Running Relative Address 

ICT - Intraword Instruction Counter 
IGE - Instruction Group End 
IGS - Instruction Group End 
* INU - Unused Compiler Space 
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Tables Referenced ; TBC - Temporary Tag Table 

TBD - Permanent Tag Table 
TBI - Argument Name Table 

Entry /Exit Register Conditions ; None 
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PKI - PACK INSTRUCTIONS 

In processing the END statement, the instructions are packed. PKI is called 
after the temporary tags have been replaced with permanent tags, but 
before the variable tags are replaced by addresses. The 15 and 30 bit 
instructions are shifted into consecutive words with the unused portions 
filled with pass (46000) instructions. An instruction with an operation 
code of 01, 02, or 04 does not allow any more instructions packed into 
the word with the exception that an 07 instruction following an 01 
may occupy the lower bits of the word. All tagged instructions (location 
tags) are saved along with their corresponding addresses in the J Table. 
These addresses are relocatable to the beginning of the program or 
subprogram if, in this case, the subroutines are being compiled separately. 
Bit 17 is set to indicate that the address is relocatable from the beginning 
of the subroutine. 

When the end of the instructions is found, the number of words of instru- 
ctions is saved. 



Subroutines Called ; ADF - Advance Tables 

Temporaries /Flags ; ICM - Incomplete Compile Mode Indicator 

IGE - Instruction Group End 

• IPS - Program- Subprogram Indicator 

INC - Number of Instruction Words 

ZAA - Relative Start of Current Program or 
Subprogram 

ZAB - Short File Start 



Tables Referenced ; Argument Tag Table (Table J) 

(not used as such at this time) 



Entry /Exit Register Conditions ; None Used 
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PLR - POSITION LIBRARY SUBROUTINES AND EQUATE TAGS WITH ADDRESSES 

This routine is responsible for reading in binary decks that appear in 
the input file, making a call to CLL (PP routine) to bring in any sub- 
routines that have not yet been defined, and then to relocate the 
flagged addresses within these routines to absolute memory addresses. 

The routine is called after it has been detected that all source input 
has been compiled. It first calls MTU to move the 26 temporary tables 
up over the string and over the input file buffer if no binary decks 
appear in the file in order to make more room to load in library 
subroutines. BRX is called to read in the binary routines appearing in 
the input file if any. CLL is called to read in the routines that 
have not yet been defined, and the compiler enters RECALL until CLL 
has terminated. Each routine is then checked to make sure that it was 
not called with more parameters than the routine just read in was 
assembled to handle. Each subroutine is examined one word at a time and 
all addresses that were flagged as program relocatable are relocated 
as are all locations that were flagged common relocatable. The Sub- 
routine Tag Table is then searched and all tags along with the address 
of their entry /exit line are entered into the J Table, . Each argument 
is given a tag and address in the J Table also. 



Subroutines Called ; ADF - Advance Table 

BRX - Read Binary Subroutines 

CKL - Check Missing Subroutines 

MTU'- Name Tables Up 

SCT - Scan Table 

WNX - Write Coded Record 

Temporaries /Flags ; CAS - Word of Blank Display Codes 

CSA - Common Starting Address 

ICM - Incomplete Compile Mode Indicator 

TBI - 

TBS - Table Parameters 

TBT - 

TBU - 
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ZAA - Relative Start of Current Program or 

Subprogram 

ZAB - Short File Start 



Tables Referenced ; Argument Name (I) 

Subroutine Name (S) 

Subroutine Tag (T) 

Subroutine Parameters (U) 

Entry /Exit Register Conditions ; None 
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PPG - PROCESS NAME AND ARGUMENTS 

Upon encountering a header card, PROGRAM, SEGMENT, SUBROUTINE, FUNCTION, or 
BLOCKDATA, PPG is called to compile initialization instructions. Whether 
or not the routine being compiled is Fortran, the arguments are counted, 
the name is saved, and the relative start of the routine is saved. Incon- 
sistancies in the calling of a subprogram with more arguments than specified 
or declaring a function a different type than a previous call are checked 
in this routine. 

In the case of a Fortran program card entry, the name of the program is 
saved. Each I/O file declared has a word reserved for it beginning at RA+2, 
The first two words, RA and RA+1, are system communication words and are 
given location tags. For every file designated an I/O buffer is reserved 
except for equivalenced files. The file appearing on right side of the 
equals for equivalencing must have already been defined because the file 
being equated to it must share the buffer. Also a buffer may be given an 
individual length which would appear on the right side of an equals sign. 
Each file is given a beginning address which will point to the parameter 
list of its own buffer or its equivalenced file buffer. This beginning 
address along with the file name is entered into the file name table (W). 
A buffer length of 20i0g is assigned to each file if no length was 
specified on the "RUN" card or the file was not equated to a number. 
Either of these specified lengths must be greater than IOGIq or that amount 

o 

of space is saved anyway. Eight buffer parameters are saved for each 
buffer. These are used by CIO (circular input /out put). The first of 
these parameters contains the name of the file (in left adjusted display 
code) onto which the transfer of data is to be made. This name will 
always correspond to the file on which reading or writing is to be done 
for this execution. The names may be changed on the program call card, 
used to call a compiled program for another execution, to transfer the data 
to a file different than the one named in the compilation. 

A word is saved in the constant value table for use during initialization. 
When a record has been compiled, the END processor fills this word with 
the field length, the beginning address of blank or numbered common (or the 
beginning address of the buffers is no common has been defined) and the 

1, Chippewa Operating System, Internal Reference, EG 12, November 1965. 
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local length of the program. Instructions are generated to initialize, 

Bl - local length 

B2 - beginning address of common or buffers 

B3 = compiled field length 

X2 - requested field length 
The field length requested for this execution of the program may not be less 
than the compiled field length or an error exit is taken. The area reserved, 
for common and the buffers is cleared to zero and the unused program space 
(area between the local length and common) is set to indefinites. 

When a program is ready for execution, the names of the files requested appear in 
SA+2 through SA-hi+2. The names may change from one execution to another so 
the originally compiled file name along with the beginning address of its 
buffer is saved in a tagged location. The name from RA+2 is transferred to 
the first word of the buffer parameters and the compiled file name replaces 
it at RA+2. Whenever an I/O request is made on an original file, the 
information will be transferred to the corresponding file named on the 
program call card. For example: :t a program was compiled with the data 
entering it via INPUT, the program card would look like PROGRAM BIG (IInIPUT). 
All read requests would be compiled to take the data from the input file. 
If the compiled program is called for execution again and the data is to be 
read from an input tape, the call could be BIG(TAPE5). The name, TAPES, 
would be set in RA+2, but the program initialization instructions would 
transfer the name to the buffer parameter list and set the name INPUT and 
the beginning address pointing to TAPES in RA+2. Whenever CIO is called 
to make a transfer, the file name in the parameter list identifies the. file. 
The remaining I/O parameters are initialized. The line limit which is the 
seventh argument on the RUN card is transferred to the eighth word of the 
parameter list. This limit applies to the number of lines of listable output, 
and is set to 20000^ if no special allotment is made. Instructions to set 
up the buffer parameters in this way are repeated for each file designated. 

The SEGMENT card processing saves two words for system communication before 
the reserved words for the arguments. Each file name along with a beginning 
address for the buffer is entered into the file name table (W) , Changing 
the file names on the SEGMENT card will have the same effect as calling a 



FL 



033770 



031760 



027750 



RA+6 
RA+5 
RA+4 
RA+3 
RA+2 
Rk+l 
RA 




first executable instruction" 

o; 

TAPE25 027750 

OUTPUT 031760 

INPUT 033770 






TAPE25 
TAPE 6 
TAPE 5 



-0 

027750 




P 

TAPE25 
OUTPUT 
INPUT 



:iO 

02775_0 
037160 
033770 



Program - compiled and executed 
with header card: 
PROGRAM A (INPUT, OUTPUT, TAPE25) 



Program loaded with program 
call card: 
A (TAPE5,TAPE6) 



Program executed after being 
loaded with program call card: 
A (TAPES, TAPE6) 



FILE BUFFER ASSIGNMENTS 



I 
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program with different file names as was previously described. No buffer 
space is relinquished from segment to segment. All of the files used by the 
program and the segments must be declared on the PROGRAM card. An entry/exit 
word is reserved with a 200001 tag after all the arguments have been processed. 
Instructions are generated to set the index registers B1-B3 to the same values 
as the PROGRAM initialization. No memory is cleared or set to indefinites 
and the I/O buffers are not initialized. 

Two system communication words are reserved when a Fortran SUBROUTINE card is 

encountered. One word for each argument is also saved and each argument is 

given a location tag (A). An argument list error is generated whenever a 

variable is used more than once for an argument. The entry/exit word is 

given a 200001 tag (first location tag). An entry is made into the subroutine 

name table (S), subroutine tag table (T) and subroutine parameter table (U) 

if the name has not already been entered. The relative start of the subroutine 

along with the number of arguments are set in the subroutine parameter entry. 

If the name appears in the- subroutine name table, that is the subroutine that 

has previously been called, then the number of arguments used by the call 

must be equal to or less than the number of arguments being compiled or an 

argument count diagnostic results. Instructions are generated to pack the 

addresses of the arguments passed to the subroutine in index registers into 

ten temporary tagged words. B1-B3 are set into the first word and B4-B6 into the 

second. 

The only difference between processing a FUNCTION card and a SUBROUTINE card 
is that the mode of the function must be checked. If the compiled type is 
different from the called type, a function type error results. The function 
name is entered into the variable name table and it is given a V-type tag. 
This tag along with the mode is entered into the variable tag table. An 
entry of the same type is made into the subroutine name table except a L-tag 
is inserted in the subroutine tag table. Since there is no difference in 
compiling a subroutine or a function, the RETURN statement processor checks 
the name of the routine for an entry in the variable name table. If this 
entry is formed, then the subprogram must be a function and the answer will 
be set into X6. 



PPG- 5 
A BLOCKDA.TA statement causes three system communication words to be reserved 
and tagged. The name BLKDAT is entered into the subroutine name table and 
given an L-type tag. No other processing of this statement is done. 



The arguments defined on an ascent or machine subprogram header card are 
entered into the variable name table but no word is reserved for it. The 
name is entered into the subroutine name table and the number of arguments 
are checked. No special initialization instructions are generated. Table 
entries are made so that subroutine linkage between the Fortran program and 
the coded routine can be made. 



SUBROUTINES GALLED: 



TEMPORARIES/ FLAGS 



TABLES REFERENCES: 



ADF Advance Tables 

ALX Get Register Assignment 

KON Convert Octal Argument 

SCM Scan Tables with Mask 

SCT Scan Table 

TAB Normalize Statement 

TRV Translate Variable 

ARG Argument Count 

CAS Space Codes 

FTY Function Type 

ICB Argument Count 

ICK Block-Data indicator 

ICY Line Limit 

INQ Name for Day file 

INT First Instruction Address 

INV Segment Indicator 

INW Chain-mode Indicator 

IPS Program Indicator 

JPS Current Subprogram 

LBA Latest Indicator Buffer Address 

PNM Program/ Subprogram name 

STG Compile mode Indicator 

TJP Subprogram Type 

Constant Name (A) 

Constant Tag (B) 

Variable Name (M) 

Variable Tag (N) 

Subroutine Name (S) 

Subroutine Tag (T) 
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Subroutine Parameter (U) 
File name (W) 
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PRR - PROCESS rUT\CTION/SUEPR0GRA^l REFERENCE 

When a FUNCTION or SUBROUTINE is called, PRR handles the passing of the 
arguments between the calling program and the subprogram. All arithmetic 
expressions have been stripped of their outermost parenthesis so that 
a somewhat simplified expression is evaluated in PRR. Each argument 
except constants have been replaced with appropriate tags. Further 
processing is required for a subscripted variable or an arithmetic 
expression. 

Any argument that is not followed by either a comma or a right parenthesis 
must be a subscripted variable or an arithmetic expression. SAD (Sense 
and Process Single Array Address) makes the decision as to which it 
is. An array will have as its second character a left parenthesis and 
also a comma-right parenthesis or two right parentheses sequence 
following it. CSR (Compile Array Address) gets the address of the word 
within the array and returns it to SAD. The variable and its subscript 
are replaced with a new tag in the string buffer. If SAD did not 
locate a auubcixpueu vctixctuxc, uiicn & *.«;*. w o-i.^ x»o ^^ **,»,— »»^ — -<- *.w». 
CXP (Compile Expression) will evaluate the expression with the result 
in X6. Upon return to PRR, the result is stored j.n a temporary tagged 
location. 

If the argument in the string has a mode indicator of 3 in the lower 
six bits, then the argument is a constant whose value is less than 
Z'^'^-l. This value is entered into the Constant Value Table (A) and is 
given a constant tag. A simple variable argument remains in the string 
buffer with no operations being performed on it. 

All of the arguments in the call have now been processed, so the next 
step is to generate instructions to pass them to the subprogram. Any 
argument in the call that was passed to the routine as an argument has 
a location tag. Therefore, the address in the location tag must be used 
as the address of the argument. In this case, GAT (Compile Argument 
Address Pick) retrieves the address from the location tag and returns 
it to PRR. The addresses of the first six arguments are set into B1-B6. 
When the index registers are exhausted, the addresses of the remaining 
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arguments are stored in the reserved word of the subprogram via external 
tags. Instructions are generated to set the tag in X6 or X7 and then it 
is stored by an external tag (400000). This tag will be linked with the 
word reserved in the subprogram for the argument. 

When the arguments have been set in either index registers or external 
tags, then a return jump will pass control to the subprogram. A call to 
DUMP/PDUMP also causes the number of arguments to be set in B7 and the 
program total field length to be sent in XO. If the subroutine being 
called was used as an argument to this routine, then it will not be 
entered by a return jump. Into the entry/exit line of the subprogram is 
stored a jump back to the calling routine and the subprogram is entered 
by a jump to the word after the entry /exit line. 

A subprogram which is being called but was not used as an argument is 
entered with a return jump. The return jump instruction will be forced 
upper and the lower 18 bits will contain the number of arguments in the 
call and a location tag pointing to the name of the calling routine. 

Example: 0100 S00600 
0715 L00002 

where S00600 is the location of the entry/exit word of the 

subroutine 

15 is the number of arguments 

L00002 is the location of the name of the subroutine 

No more than 60 parameters may be passed to a subroutine. If the number 
of arguments in this call-.to the subprogram is greater than the number 
of any previous call, then the new number is saved in the argument count 
byte of the Subroutine Parameter Table. 

CRI (Compile Restore Instructions) is called if the subprogram being 
referenced had been previously used as an argument. The location to which 
control is returned by this called subprogram is given a location tag. 
This tag will be the same one that was stored in the entry/exit line of 
the called subprogram, 

PRR is called by CLL (Process Call Statement) and CRF (Compile Function 
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Reference)', 



Subroutines Called ; ADF - Advance Table 

ALX - Get Long Register Assignment 

CIA - Clear Tables I and J 

CRI - Compile Restore Instruction 

CXP - Compile Expression 

GAT - Compile Argument Address Pick 

SAD - Process Single Array Address 

SCT - Scan Table 



Temporaries /Flags 



ARF - Argument Reference Count 

FLT - Program Total Field Length 

FSR - Function Statement Reference Count 

IGX - Current Index Register 

INF - DIMP/PDUMP Indicator 

SRI - Subroutine Reference Count 

TML - Argument Count 

XDiei - Subprogram Name 

TMN - Subprogram Tag 



Tables Referenced; 



Constant Value (A) 

Constant Tag (B) 

Subroutine Name (S) 

Subroutine Parameter (U) 
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PSC - fOSIIIOM CONSTANTS 

PSC is called to position the constants into the program after the 
instructions have been packed. It first sets the base address for the 
constants (BAK) to the short file start (ZM) + the number of instruction 
words (IHC). It then sets the base address for the temporaries (BAT) to 
the constants base address plus the number of constants. If there is 
room for the constants, the base address for indireots is set to. the base 
address of temporaries plus the number of temporaries and the base address 
for variables (BAV, ICO) is set to the base address for indirects plus 
the number of indirects. 

The constants are then transferred to the prcgram area and the program 
is set up as follows: 



PROGRAM 
(PACKED 
INSTRUCTIONS) 



CONSTANT 
SECTION 



BAK 



INDIRECT 
SECTION 



TEMPORARY 
SECTION 



VARIABLE 
SECTION • • • 



BAI 



BAT 



BAV 



Subroutines Called: None 



Temporaries /Flags : 



BAK - Base Address for Constants 

BAI - Base Address for Indirects 

BAT - Base Address for Temporaries 

BAV - Base Address for Variables 

EST - File Start 

ICO - Baee Address for Variables 

IWC - Instruction Word Count 

TGI - Indirect Tag 

TGK - Constant Tag 

TGT - Temporary Tag 

ZAA - Short File Start 
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?ST - PROCESS LOCATION TAG 

The PST subroutine processes the location tag for all Ascent or Machine 
records. The Location Tag is assembled by the ASV (Assemble Variable) 
subroutine and if the tag is non-alphabetic, the only acceptable value is 
a plus sign. The PST Subroutine will also process the blank location 
field if parcel 3 of the current word is not full. The running address 
is set to blanks. When a plus sign has been detected, the running 
address is stored and incremented by one. The check for an alphabetic 
tag involves a search in the Argument Name Table (Table I) and a find in 
this table causes a search of the Argument Tag Table (Table J) to see if 
the variable has been doubly defined. If the variable was not in the 
Argument Name Table, it is stored there and a Statement Tag (H-tag) is 
generated and stored in the corresponding tag table. In generating the 
entry for the tag table, a check is made for common relocation and a bit 
is set if necessary. Once the location tag has been processed, the PST 
subroutine moves the machine operation field if the string buffer had 
blanks beginning in column 7 and tags as the end of the string at the 
first blank, thus the machine instructions must not have blanks in the 
address field. 



Subroutines Called ; ASV - Assemble Variable 

ARA - Adjust Running Address and Write Register 

SCM - Scan Tables With Masking 

ADF - Advance Tables 



Temporaries /Flags ; 



ICT - Intraword Counter 

AIM - Current Running Address 

IPS - Program Mode 

STG - Compile Mode 

TGH - Statement Tag (set) 



Tables Referenced ; TBI - Argument Name 

TBJ - Argument Tag 



Entry /Exit Register Conditions ; n/a 
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PSC - POSITION CONSTANTS 

PSC is called to position the constants into the program after the 
instructions have been packed. It first sets the base address for the 
constants (BAK) to the short file start (ZAA) + the number of instruction 
words (IWC). It then sets the base address for the temporaries (BAT) to 
the constants base address plus the number of constants. If there is 
room for the constants, the base address for indirects is set to. the base 
address of temporaries plus the number of temporaries and the base address 
for variables (BAV, ICO) is set to t he base address for indirects plus 
the number of indirects. 

The constants are then transferred to the prcgra,. area and the program 

is set up as follows: 



PROGRAM 
(PACKED 
INSTRUCTIONS) 



CONSTANT 
SECTION 



BAK 



INDIRECT 
SECTION 



TEMPORARY 
SECTION 



VARIABLE 
SECTION • • • 



BAI 



BAT 



BAV 



Subroutines Called: None 



Temporaries /Flags : 



BAK - Base Address for Constants 

BAI - Base Address for Indirects 

BAT - Base Address for Temporaries 

BAV - Base Address for Variables 

FST - File Start 

ICO - Baee Address for Variables 

IWC - Instruction Word Count 

TGI - Indirect Tag 

TGK - Constant Tag 

TGT - Temporary Tag 

ZAA - Short File Start 
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?ST - PROCESS LOCATION TAG 

The PST subroutine processes the location tag for all Ascent or Machine 
records. The Location Tag is assembled by the ASV (Assemble Variable) 
subroutine and if the tag is non-alphabetic, the only acceptable value is 
a plus sign. The PST Subroutine will also process the blank location 
field if parcel 3 of the current word is not full. The running address 
is set to blanks. When a plus sign has been detected, the running 
address is stored and incremented by one. The check for an alphabetic 
tag involves a search in the Argument Name Table (Table I) and a find in 
this table causes a search of the Argument Tag Table (Table J) to see if 
the variable has been doubly defined. If the variable was not in the 
Argument Name Table, it is stored there and a Statement Tag (H-tag) is 
generated and stored in the corresponding tag table. In generating the 
entry for the tag table, a check is made for common relocation and a bit 
is set if necessary. Once the location tag has been processed, the PST 
subroutine moves the machine operation field if the string buffer had 
blanks beginning in column 7 and tags as the end of the string at the 
first blank, thus the machine instructions must not have blanks in the 
address field. 



Subroutines Galled ; ASV - Assemble Variable 

ARA - Adjust Running Address and Write Register 
SCM - Scan Tables With Masking 
AI>F - Advance Tables 

Temporaries /Flags ; ICT - Intraword Counter 

ADM - Current Running Address 

IPS - Program Mode 

STG - Compile Mode 

TGH - Statement Tag (set) 

Tables Referenced ; TBI - Argument Name 

TBJ - Argument Tag 

Entry /Exit Register Conditions; n/a 
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PTC - PROCESS TAG Affl) CONSTANT 

The PTC subroutine processes tags and constants in the Ascent or Machine 
coded routines. Upon entry into the routine from MAA, X5 contains the 
tag and/or X4 contains the constant. If a tag does not exists and the 
constant is in the range of -2^^-l to 2^^-l, the number is left- 
justified and placed in the X5 register. If the constant is greater than 
2 -1 and less than 2 -1, a Statement Tag (H-tag) is generated and the 
constant and tag are stored in the Argument Tag Table (Table J). Then 
the tag is returned in the X5 register. 

If there is a tag in the X5 register upon entry, the Variable Name 
Table (Table M), Common Name Table (Table 0), and the Equivalence Name 
Tables (Table X and Y) are scanned. Should the name not appear in any 
of the tables, a jump to ISL (Identify Symbolic Tag) for a tag is 
executed, and the tag is returned in the X5 register and the constant, 
if it exists, is processed as above, but is returned in the X4 register. 
If the variable is in the common or equivalence tables, the variable 
and a Variable Tag (V-tag) are stored in the Variable Name Table and 
the V-tag is returned in the X5 register. If the variable is already 
in the Variable Name Table (Table M) the previously stored tag is 
returned in the X5 register. 



Subroutines Called : ADF - Advance Tables 

ISL - Identify Symbolic Tag 
SCT - Scan Table 

Temporaries /Flags ; IPS - Program Type 

TGH - Statement Tag (set) 
TGV - Variable Tag (set) 
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Tables Referenced ; ' TBJ - Argument Tag 

TEN - Variable Tag 



TBM - Variable Name 
TBY - Equivalence Primary Name 
TBX - Equivalence Secondary Name 
TBO - Common Name 



Entry /Exit Register Conditions : 

Entry: X4 - constant or zero 
X5 - tag or zero 

Exit: if X5 = on entry 



X5 = constant -2 - 2 ,"0 

^ ^ „16-1 .17-1 
= H-tag 2 - 2 

if X5 ?^ 0, X4 = 
X5 = Variable Tag 

if X5 ?^ 0, X4 = 
X5 = Variable Tag 



Statement Tag (H-tag) 
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PUA - PROCESS U NIQUE VARIABLE ASSIGNMENTS 

After all blank and numbered common locations have been assigned, PUA is 
entered to make unique assignments. If the mode of compilation is 
FORTRAN IV, the MCA routine is called to make labeled common assignments. 
The equivalence tables are then examined and the PXG routine which 
processes equivalence groups is called for each primary name that has 
not yet been processed. After all equivalences have been handled, the 
Variable Name Table is searched to assign core locations for all 
variables that have not yet been assigned. The tag for the variable along 
with the starting address is entered into Table J. The length of the 
array or variable is added to the starting address in order to determine 
the starting address of the next array or variable. When all variables 
have been assigned, the starting address for the next one is set as the 
relative start of the next program and the routine exits. 



Subroutin es Called : ADF - Advance Tables 

MCA - Hake FORTRAN IV Relative Assignments 
SCT - S.an Table 

Temporaries /Fla^s; bAV - Base Address for Variables 

CTY - Coriuon Block Type Indicator 
IPS - Program/Subprogram Indicator 

MOD - Subprogram Mode 

MOE - Program Mode 

TBN - 

TBP - 

TBX - Table Parameters 

TBY - 

TBZ - 

TMC - Free Temporary 

ZAA - Relative Start of Current Program or 
Subroutine 
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Tables Referenced ; Variable Tag (N) 

Array Tag (P) 

Equivalence Secondary Name (X) 

Equivalence Primary Name (Y) 

Equivalence Bias (Z) 

Entry /Exit Register Conditions ; None 
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PXG - PROCESS EQUIVALENCE GROUP 

PUA (Process Unique Variable Assignments) calls this routine to process 
one equivalence group at a time. The primary name for the equivalence 
is specified upon entry and any variables declared equivalent to this 
primary one are assigned memory locations. 

The length of the primary array is determined and the tag along with 
the staring address is entered into the J Table. The equivalence 
tables are searched for a variable equivalenced to the specified primary 
one. When one is found, its starting address is determined by adding 
the corresponding entry in the Equivalence Bias Table to the base address 
of the primary variable. This address along with the secondary tag is 
entered into the J Table. When no more variables are found that are 
equivalenced to the specified primary entry, this routine exits. 



Subroutines Called : ADF - Advance Table 

SCT - Scan Table 

Temporaries /Flags ; TBJ - 

TBM - Table Parameters 
TBP - 
TMR" - 

Tables Referenced ; Argument Name (J) 

Variable Name (M) 
Array Tag (p) 

Entry /Exit Register Conditions : 

Entry: X4 - primary name to be processed 
Exit : None 
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Tables Referenced ; Argument Tag Table (TBJ) 

(used for address only) 

Entry/Exit Register Conditions : None are utilized 
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RAD - REPLACE TAGS WITH ADDRESSES 

RAD is called twice for each program or subprogram that is compiled for 
the purpose of replacing the compiler generated tags with memory addresses 
The first time it is called is during the processing of the END state- 
ment of eacJi program/subprogram. At this time the base address of the 
constants, the temporaries, and the indirects has been determined. The 
assignment of all variables in the program has been made and the tags for 
the variables along with their assigned memory address has been entered 
into the J Table. RAD will examine the object code, one word at a time, 
and any K portion of a 30 bit instruction that is a tag will be replaced 
by a memory address and the Instruction word is stored back into the 
object program. Since the address of subroutines is not known at this 
time, subroutine tags are ignored at this time. If the compilation mode 
is incomplete, the modified word is not stored back into the object 
program. If subroutines are being assembled separately to be executed 
at a later time, the memory addresses are flagged as program or common 
relocatable before being stored. 

RAD is entered a second time after all compiler input has been processed, 
and the library routines have been loaded. At this time, all library 
tags along with their corresponding memory addresses have been entered 
into the J Table and RAD will again search the object code of the 
program and replace any subroutine tags with memory addresses. RAD 
will be entered once for each program/subprogram as it will process 
only one routine at a time. Thus, RAD will examine the object code 
generated by a program twice, once to replace variable tags, and once 
to replace subroutine tags with absolute or relocatable memory addresses. 



Subroutines Called ; RAX - Translate Tag (local routine to RAD 

entered via a return jump) 

Temporaries /Flags ; BAI - Base Address for Indirects 

BAK - Base Address for Constants 
BAT - Base Address for Temporaries 
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FST - Long File Start 

ICK - Incomplete Compile Mode Indicator 

INT - First Instruction Address 

IPS - Program/Subprogram Indicator 

IWC - Instruction Word Count 

MSN - Missing Statement Indicator 

MST - System Error Indicator 

TBI - Table Parameters 

ZAB - Short File Start 



Tables Referenced ; Argument Name (I) 
Entry /Exit Register Conditions ; None 
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RDA - REDUCE ASGEOT INSTRUCTION 

When the MAA (Process Machine and Ascent Records) subroutine encounters 
an Ascent mnemonic other than a pseudo-opcode, the RDA subroutine is 
called. RDA first determines if the instruction is a two letter 
mnemonic (i.e. opcodes 00-07 or 46) which are further processed in the 
RJI (Reduce Jump Instruction) subroutine or a three digit mnemonic, in 
which case the third digit is the resultant register. Here the resultant 
register is stored in the III constant. Then these instructions are 
further divided into the Set instructions (i.e. 50-77) which are further 
processed in the RSI (Reduce Set Instruction) subroutine and the X- 
register instructions which are processed in the main loop of RDA. 
In further processing these instructions, RDA generates an intermediate 
language in the string buffer for the Ascent Source Card. This language 
is shown in detail in Figure RDA-1. Before transferring control to 
RJI for two digit processing, RDA compares the instruction to a NO or 
PS, in which case the string is flagged by RDA. Both RSI and RJI 
flagged the string (See RSI and RJI write-up). In the processing of the 
address field RDA will also store the operation registers (j and k) into 
the JJJ and KKK constants. Before exiting RDA will flag the string buffer 
with three consecutive zeros and sets the B6 register to a 1) -1 if 
the instruction has a six bit constant or no address field; to a 2) 
if the instruction has been completely formatted and to a 3) +1 if 
there is a constant or tag to be processed. 



Subroutine s Galled : RSI - Reduce Set Instructions 

RJI ^ Reduce Jump Instructions 

Temporaries /Fla^s; III - i portion of Machine Instruction (set) 

JJJ - j portion of Machine Instruction (set) 
KKK - k portion of Machine Instruction (set) 

Tables Referenced; None 
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Col* 9 Col. 10 Col. 11 



A 
A 

A 
A 

B 
B 

B 
B 

N 

N 

D 

D 

R 

R 

I 

I 

N 

R 

D 



Col« 12 Col. 13 Col. 14 



B 

A 
A 

A 
A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



A 
A 



* 
* 




) 


) 







A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 



A 
A 
































OPERATION CODE 
GENERATED BY FTN 

20 
21 

22 
23 

24 
25 

26 
27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 
45 



CXi Xk 

SAi Aj + K 
Bj + K 
Xj + K 
Xj + Bk 
Aj + Bk 
Aj - Bk 
Bj + Bk 
Bj - Bk 



C 
C 
C 
C 
C 
C 
C 
C 



C 


+ 


G 





B 


+ 


G 





A 


+ 


G 





A 


+ 


B 





C 


+ 


B 





C 


- 


B 





B 


+ 


B 





B 


. - 


B 






46/0 

47 

50 
51 
52 
53 
54 
55 
56 
57 



p> 



SOURCE LANGUAGE 




INSTRUCTION 


Col. 7 


SB! Aj + K 


B 


Bj + K 


B 


Xj + K 


B 


Xj + Bk 


B 


Aj + Bk 


B 


Aj - Bk 


B 


Bj + Bk 


B 


Bj - Bk 


B 


SXi Aj + K 


A 


Bj + K 


A 


Xj + K 


A 


Xj + Bk 


A 


Aj + Bk 


A 


Aj - Bk 


A 


Bj + Bk 


A 


Bj - Bk 


A 



Col, 8 



STRING ENTRIES GENERATED BY KDA 
Col. 9 Col. 10 Col. 11 Col. 12 



Col. 13 Col. 14 



C 


+ 


G 





B 


+ 


G 





A 


+ 


G 





A 


+ 


B 





C 


+ 


B 





C 


- 


B 





B 


+ 


B 





B 


- 


B 





C 


+ 


G 





B 


+ 


G 





A 


+ 


G 





A 


+ 


B 





C 


+ 


B 





C 


- 


B 





B 


+ 


B 





B 


- 


B 






OPERATION CODE 
GENEEIATED BY FIN 

60 
61 
62 
63 
64 
65 
66 
67 

70 
71 
72 
73 
74 
75 
76 
77 



g 



RM-5 



Entry/Exit Register Conditions ; 

X2 - Character following opcode 

X6 - Opcode (2 digits) 

B2 - Number of digits in opcode 

B4 - String address of the opcode +1 



RDA - REDUCE ASCENT INSTRUCTIONS 
SIMPLIFIED FLOW 



IS ASCENT OPERATION CODE 
TWO DIGITS ? 



NO 



I STORE 1 REGISTER DESIGNATOR 



IS THE FIRST CHARACTER OF 
THE OPERATION CODE AN "S" ? 



NO 



IS THE SECOND CHARACTER OF 
THE OPERATION CODE AN "X" ? 



YES 



I SET STRING BUFFER FLAGS 



STORE j AND k REGISTER 
DESIGNATORS 



I EXIT I 



YES 



YES 



NO 



-CSs 



IS OPERATION CODE A "N0" 
OR A "PS" ? 



NO 



RJ RJI - REDUCE JUMP 
INSTRUCTIONS 



-^> 



RJ RSI - REDUCE SET 
INSTRUCTIONS 



-{5» 



ERROR 



YES 



-C:^' 



-Ca" 



SET STRING BUFFER FLAGS 



r^^ 



g 

ON 



RDA- REDUCE ASCENT INSTRUCTIONS 
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RES - PROCESS RESERVE LIST 

When the MAA (Process Assembly Record) subroutine encounters a RES opcode, 
the RES (Process Reserve List) subroutine is called. The RES declarative 
permits block reservations with the number of words on the right of the 
equal sign and the identifier associated with the first word on the 
left. An example of the RES declarative together with the basic steps 
in processing the list is shown in Figure RES-1. 

On entering the RES subroutine, the TAB (Normalize Statement) subroutine 
is called. The identifier is checked to insure that the first character 
is alphabetic. The Variable Name Table (Table M) is scanned to deter- 
mine if the identifier has been entered and, if not, the identifier is' 
.entered into the Variable Name Table. If the variable has been previously 
entered in the Variable Name Table, an error exit (Duplicate Tag Error) 
occurs. 

Next, a check is made for an equal sign. If one does not appear, or if 
the end of statement is encountered, a machine- format error exit is 
taken. The CVN routine is called to convert the constant which signifies 
the number of words to reserve. Should the constant be negative or 
greater than 2 -1 an error exit (Machine -Constant Error) is taken. 
If the constant is in the proper range, it is entered into the Array 
Parameters Table (Table Q), and an array tag is assigned and stored into 
the corresponding Variable Tag Table (Table N) and Array Tag Table 
(Table P). 

Processing of list entries continues in the manner described above until 
a right parenthesis, indicating the end of list, is encountered. 



Subroutines Called ; TAB - Normalize Statement 

SCT - Scan Table 

CVN - Convert Octal or Decimal 

ADF - Advance Table 



RES DECLARATIVE PROCESSING 



OQ 
C 
H 
(t> 



CO 

I 



EXAMPLE : RES (kI= I 0^K2= I OOB yL3 ^ I OOo) 

1. STORE VARIABLE NAME (e.g., kl) IN VARIABLE NAME TABLE 



^ 2. CHECK FOR AN EQUAL SIGN 



3. CONVERT CONSTANT 



4. STORE CONSTANT IN THE DIMENSION TABLE 



5.^ IF THE NEXT ENTRY IS A COMMA, REPEAT 1-4 



6. Check for a right parenthesis 



7. return for the next SOUF: :ARt> w 

I 
lo 



RES-3 



Temporaries /FlaRs : TGW - Array Tag (set) 

Tables Referenced ; TBM - Variable Name Table 

TEN - Variable Tag Table 
TBQ - Array Parameters 
TBP - Array Tag 

Entry /Exit Register Conditions: DNA 



RJI-1 



RJI - REDUCE JUMP INSTRUCTION 

The RSI subroutine is entered from RDA whenever an Ascent jump instruction 
is encountered. RUA (Reduce Additive Field) is called to collect and 
check the terms in the address field. Then a check is made for the 
"RJ" and "JP" instructions. These are the only jumps which may contain 
a single term in the address field. JP is also checked with the multi- 
term group. This group is further divided into those containing X 
registers in the address and those containing B registers. Each of these 
groups are further subdivided. The X register group is divided into 
ZR, NZ, PL and NG and IR, OR, DF and ID. The B register group has the 
same subgroupings the first group being identical to the X register 
group and the second being EQ, NE, GE and LT. RJI also checks for the 
correct number of terms. 



Subroutines Called ; RUA - Reduce Additive Field 

Temporaries /Flags ; INJ - Ascent Mnemonic Code (S) 

III - i Portion of Machine Word 
JJJ - j Portion of Machine Word 
ICKK - k Portion of Machine Word 

Tables Referenced: None 



Entry /Exit Register Conditions ; 

B2 - Number of digits in code 
X2 - Opcode 
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RSI - REDUCE SET INSTRUCTION 

The RSI subroutine is entered from RDA whenever an Ascent Set Instruction 
(50-77) is encountered. _ RSI determines the resultant register (i) for 
SAl, SBi, SXi and SBO. Next the routine examines the first character 
of the address field for a left parenthesis. If a left parenthesis is 
found, the next character must be a ".", "-."a number or letter. If a 
letter appears, the RUA (Reduce Additive Field) subroutine will be 
called to check the terms within the parenthesis. Should the character 
following the left parenthesis not be a letter, then a scan for a right 
parenthesis ")" is initiated. The B6 register is set to indicate a 
constant has not been processed. 

If the address field had not contained a left parenthesis, then RUA is 
called and a check is made for operation registers to determine the 
"j" and "k" operational registers. Since these registers have been 
stored in RUA, the RSI subroutine merely checks for legality in the 
number of terms. 



Subroutines Called ; RUA - Reduce Additive Field 

Temporaries /Flags ; INJ - Ascent mnemonic code or register Number (set) 

JJJ - j Portion of Machine Instruction (set) 

KKK - k Portion of Machine Instruction (set) 

III - i Portion of Machine Instruction (set) 

Tables Referenced : ROD - Operational Register Codes 

Entry /Exit Register Conditions ; 

X3 contains Sx'X =^ 
X 
A 

XI contains i register designators 
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RTN - PROCESS RETURN STATEMENT 

A RETURN statement is primarily used in a function or subroutine to 
indicate the end of logic flow and return control to the calling 
program. Any subprogram may contain more than one RETURN statement. If 
used in the main program, terminating instructions, are compiled. 

Encountering a RETURN statement in a main program, SPR (Handle Stop, 
Pause, and End) is called to compile terminating instructions. 
Essentially, the statement has the same effect as an END card. 

If the RETURN statement is the terminator of a DO loop, then the next 
instruction to be compiled will be tagged. A subroutine will have the 
jump to the entry/exit line tagged and a function will have the fetch 
instruction tagged. 

RTU (Compile Return Instructions) checks the routine name to see if it 
is a function or not. In the processing of the FUNCTION statement (PPG), 
the name of the routine was entered into the Variable Nanae Table and 
also the Subroutine Name Table. In this way a function and a subroutine 
subprogram can be distinguished from one another. If the routine is a 
function, then CIR (Compile Read Instructions) fetches the value of the 
variable. This value is transferred to X6 and if it is double or complex 
the less significant portion is set into X7. 

Both subroutines and functions, exit through their entry /exit line. 
This word always receives the location tag, 200001, so a jump to this 
tag is compiled. 



Subroutines Called; ASL - Assemble Letters 

CIR - Compile Read Instructions 

CLT - Clear Tables I and J 

PSN - Process Statement Number 

RTU - Compile Return Instructions 

SCT - Scan Table 

SPR - Compile Terminating Instructions 
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Temporaries /Flags ; CTG - Current Location Tag 

DTI - DO Termination Indicator 

JPS - Current Program Indicator 

PNM - Routine Name 

Tables Referenced ; Variable Name (M) 

Entry /Exit Register Conditions ; 

Entry: X6 = RETU (display code) 
Exit : None 
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RUA - REDUCE ASCENT ADDITIVE FIELDS 

The RUA subroutine is entered for processing of an Ascent address field, 
RUA scans to the address field, if an A, X, or B register is detected^ 
the register is stored in the JJJ constant. If the term in the address 
field is not a register, a call to ASV (Assemble Variable) is generated. 
Next^ ASN (Assemble Number) is called to isolate the second term and if 
it is a constant CVN (Convert Number) is called. If the second term is 
a register, the register is saved in the KKK constant. Then the next 
term is selected, examined and processed. As each term is processed, 
a check for too many terms is made. The B6 register is set to a 1, if 
necessary, to relay information to MAA (see RDA write-up) subroutine. 



Subroutines Called ; ASV - Assemble Variable 

ASN - Assemble Number 
CVN - Convert Octal or Decimal Number 

Tpmnorarles/Flaes: III - i Portion of Machine Word 

, -,. -...-- ^ . 

JJJ - j Portion of Machine Word 
KKK - k Portion of Machine Word 

Tables Referenced ; RCD - Operational-Register Codes 

Entry /Exit Register Conditions ; 

B6 register - 1 variable or constant not processed. 
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SCS - SCAN SPECIAL TABLE 

The SCS subroutine scans a specified table to determine if the high-order 
42 bits are a given value. If the value is found, the low-order 18 bits 
of that entry are returned in the X6 register. On entering the SCS 
routine, B4 contains the number of entries in the table to be scanned, 
B5 contains the starting address of this table, and X6 contains the 
value right- justified. The value in X6 is shifted 18 places to left- 
justify it and it is compared to bits 18-59 of the table until either 
all table entries have been examined or a match is found. In the first ' 
case, an error exit occurs, the latter case brings the low-order 18 bits 
into X6 right -justified and returns. 



Subroutines Called : None 
Temporaries /Flags : None 
Tables Re ferenced ; Specified in B5 register 

Entry /Exit Register Conditions ; 

Entry: B4 - number of entries to search 
B5 - table address 
X6 - value to be compared 

Exit: B4 - relative position of entry from beginning of table 
X6 - low-order 18 bits of the table entry 



SCT-1 



SCT - SCAN TABLE 

The SCT subroutine scans a specified table to determine if it contains 
a given argument. If the argument is found in Ae table, the contents 
of the corresponding entry in the table following this table in memory 
is returned to the calling program. For example, if the Constant Value 
Table (Table A) is scanned and the argument found, the corresponding 
entry in the Constant Tag Table (Table B) is returned to the calling 
program. On entering the SCT subroutine, the X6 register contains the 
argument, and the XI register contains the table parameter. The table 
parameter has the following format: 




parameter 
word address 



starting 
address 



next entry 
address 



36 



18 



SCT subtracts the starting address from the next entry address to obtain 
the number of entries in the table. If there are no entries in the table, 

ji 1 j„ -•— jj„4.^T„ ^^f.,,^„a,A i-r\ <-V>p r'oT: T •! r\<y ■nr-oarflm. Thp. table is 

then searched (beginning with the most recent entry) for the argument. 
If the argument is found, the address of the corresponding entry in the 
succeeding table is computed (this address equals the starting address 
of the scanned table plus the number of entries in the scanned table 
plus the relative location of the argument in the scanned table, since 
paired tables each have the same number of entries) and this entry is 
read. 



Subroutines Called ; none 

Temporaries /Flag^ ; none 

Tables Referenced ; specified table and its successor 

Entry/Exit Register Conditions 

Entry; XI = table parameter for table to be scanned 
X6 = argument to be located in table 
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Exit: Bl = relative address of argument in table if found 

Bl = negative if not found or table is empty 

X2, X6 5= contents of corresponding entry in succeeding table 

XI = argument 
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SUB - PROCESS SUBROUTINE LIST 

When the MAA (Process Machine or Ascent Records) subroutine encounters 
a SUB declarative, the SUB subroutine (Process Subroutine List) is 
called. The SUB declarative permits a programmer to assemble a sub- 
program into his program and to reference this subprogram by a name of 
his choice. An example of the SUB declarative together with the basic 
steps in processing the list is shown in Figure SUB-1. 

On entering the SUB subroutine, the TAB subroutine is called to normalize 
the list. The Variable Name Table (Table M) is scanned to determine if 
the variable which has been equated to the subroutine name has been 
entered and, if not, the variable is entered in the Variable Name Table. 
If the variable has previously been entered in the Variable Name Table, 
an error exit (Duplicate Tag Error) occurs.. The variable name is also 
checked to insure that the first character is alphabetic and that the 
name is composed of two or more characters. 

Next, a check is made for the equal sign, and the Subroutine Name Table 
(Table S) scanned to determine if the subroutine .name has previously 
been entered: if not, the subroutine name is entered in the Subroutine 
Name Table and the corresponding entry in the Subroutine Parameter Table 
(Table U) is reserved. If the subroutine name was a previous entry in 
the Subroutine Name Table, the corresponding Library Tag (L-tag) from 
the Subroutine Tag Table (Table T) is entered in the Variable Tag Table 
(Table N). If the subroutine name was not a previous entry in the 
Subroutine Name Table, a Library Tag is generated and entered in the 
Variable Tag Table. 

Processing of list entries continues in the manner described above 

until a right parenthesis, indicating the end of the list, is encountered. 



Subroutines Called ; TAB - Normalize Statement 

SCT - Scan Tables 
ADF - Advance Tables 



SUB DECLARATIVE PROCESSING 



EXAMPLE^ SUB (s/ = SUB5, 0UT^0UTPTCj LG= L0G) 

1. STORE VARIABLE NAME (e.g., SI) IN VARIABLE NAME TABLE 

2. CHECK FOR EQUAL SIGN 



3. CHECK SUBROUTINE NAME TABLE: ENTER SUBROUTINE NAME 
(e.g., SUB5) IF NOT PREVIOUSLY ENTERED 



4. RESERVE ENTRY IN SUBROUTINE ARGUMENT TABLE 

5. ENTER LIBRARY TAG IN VARIABLE TAG TABLE 

6. IF NEXT ENTRY IS A COMMA, REPEAT 1 - 5 

7. CHECK FOR RIGHT PARENTHESIS 

8. RETURN FOR NEXT SOURCE CARD 



CO 

a 
I 

ro 



SUB-3 
Temporaries /Flags : TGL - Library Tag (set) 

Tables Referenced ; Variable Name Table (Table M) 

Variable Tag Table (Table N) 
Subroutine Name Table (Table S) 
Subroutine Tag Table (Table T) 
Subroutine Parameter Table (Table 0) 

Entry /Exit Register Conditions ; n/a 
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TAB - NORMALIZE STATEMENT 

When the Assemble FORTRAN Subroutine, AFS, transferred a statement 
(or statements, , if there were multiple statements on the card) from 
the card buffer to the string buffer, successive characters on the card 
were packed in successive words in the string buffer, one character 
per word. The TAB routine examines a specified statement, packing 
variables and constants as one-word string buffer entries. Separators, 
such as parentheses, commas, etc., remain packed one per word. Figure 
1 illustrates how a statement in the string buffer would appear before 
and after normalization by the TAB subroutine, 

A simplified flow chart of the TAB subroutine is shown in Figure 2. A 
string buffer entry is read, beginning at the specified address. The 
entry may be a space, a, letter, a number, or a separator. The steps 
in processing each of these is described below. 

Space ; if the entry is a space, it is ignored, and the next 
entry is read. 

Letter ; if the entiry is a letter, the ASV subroutine is called 
to assemble the variable. The variable, packed in a single word, 
is then written back in the string buffer. 

Number ; if the entry is a number, the ASN subroutine is called 
to assemble the dibits (up to 7) in the number. The digits, packed 
in a single word, are then written back in the buffer. The next 
entry in the string buffer is then read and examined to determine 
if it is an H, L, or R; if it is not, the entry is processed in 
the normal manner. If the entry following the number was an H, L, 
or R, then a literal of the form nHdddd...d is being processed. 
The number just assembled is converted to decimal to provide a 
count of the number of characters in the literal. The data state- 
ment indicator is then examined to determine if a DATA statement 
is processed. If so, the specified number of characters following 
the H, L, or R are packed, ten per word, and written back into the 
string buffer. A apmrna is entered in the string after each full 
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STRING BUFFER LOADING QY THE AFS SUBROUTINE 



00 
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VARUBLES AND NUMBERS ARE 
ASSEMBLED l.N A SINGLE WORD, 
LEFT-JUSTIFIED 



SEPARATORS REMAIN PACKED ONE 
PER WORD 



END OF STATEMENT INDICATOR 




CLEARED ON NEXT CALL TO AFS 



ICE 







NOTE; 

UP TO 7 DIGITS ARE PACKED 
IN A SINGLE WORD: LARGER 
NUMERIC FIELDS ARE PACKED 
IN CONSECUTIVE WORDS, 7 
DIGITS PER WORD 



oo— o 



STRING BUFFER AFTER NORMALIZATION BY THE TAB SUBROUTINE 



I 
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word processed. If, after the specified number of characters have 
been processed, a partly filled word remains, it is filled with 
spaced (55^) if the descriptor was an H, or is zero-filled if the 
descriptor was an L or R. If the descriptor was an R, the characters 
are right- justified. The literal end indicator is then set in 
the rightmost six bits (R descriptor) or leftmost six bits (L 
descriptor), and the next entry is processed. 

If the literal was not in a data statement, the specified number 
of characters are packed, ten per word, and stored as consecutive 
entries in the Constant Value Table (table A). For each table A 
entry, a constant tag (K-tag) is entered in the Constant Tag Table 
(table B). The tag corresponding to the first word entered in 
the Constant Value Table is also entered in the string buffer. A 
partly filled entry is completed and justified in a manner similar 
to that for a literal in a DATA statement. After the last word of 
characters in the literal has been stored in the Constant Value 
Table, an end flag (zero word) is entered in the Constant Value 
Table: a constant tag is generated and stored in the Constant 
Tag Table entry corresponding to the literal end flag. The next 
string buffer entry is then processed. 

Separator ; When AFS detected the first $ on a card, it replaced 
the $ with a zero word and set the multiple statement indicator 
to the address of the $ in the string buffer. When the Sense 
Formula (SFO) subroutine compiles a statement on a card containing 
multiple statements, the $ is replaced and the multiple statement 
indicator cleared, TAB therefore senses for a $: when found, 
the multiple statemQnJt indicator is set to the original location of 
the $ in the buffer and the $ replaced with a zero word. Note that 
this process is required because the compression of the statement- 
as it is normalized by TAB changes the location of the statement 
end. 

If the separator is an open or close parenthesis, the parenthesis, 
counter is incremented or decremented, and the parenthesis written 
back into the st?;ing buffer. 
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READ STRING BUFFER ENTRY 
END OF STATEMENT REACHED ? 



SPACE 



NOT (). 






I NO 



YES 



- M EXIT I 



TEST CHARACTER 



ALPHANUMERIC 



SEPARATOR 



COPY SEPARATOR BACK IN 
STRING BUFFER 
TEST SEPARATOR 



"(" OR ")" 



MODIFY PARENTHESES COUNT 



ASSEMBLE VARIABLE 

IS NEXT CHARACTER A "."? 



NO 



COPY PACKED VARIABLE BACK 
IN STRING BUFFER 



IS VARIABLE A LOGICAL 
SEPARATOR ? 



YES 



WRITE SEPARATOR CODE IN 
STRING BUFFER 



YES 



NO 



- H ERROR I 



^ TEST ALPHANUMERIC 



J LETTER 



NUMBER 



ASSEMBLE NUMBER 
WRITE NU^ffiER BACK IN 
STRING BUFFER 

NEXT CHARACTER "H", "L","R"? 



NO 



YES 



[li s THIS A DATA STATEMENT ? \ - 



YES 



NO 



GENERATE CONSTANT TAG 
STORE TAG IN STRING ' 
BUFFER 



PACK SPECIFIED CR.\RACTERS, 
STORE IN CONSECUTIVE 
CONSTANT VALUE TABLE ENTRIES 

GENERATE CONSTANT TAG AND 
STORE IN CONSTANT TAG TABLE 
FOR EACH ENTRY 



ASSEMBLE VARIABLE 

COPY PACKED VARIABLE BACK 

IN STRING BUFFER 



-t5- 



PACK SPECIFIED NUMBER OF 
CHARACTERS, COPY PACKED 
WORDS BACK IN STRING 
BUFFER 



NORMALIZE STATEMENT SUBROUTINE 
MAIN FUNCTIONS 
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If the separator is a period, the variable which follows it is 
assembled, and the character following the variable is examined 
to determine if it is a period. If it is, then the variable 
must be a logical separator, and the appropriate flag or code is 
stored in the string buffer (see below). 



Separator 


Code/Flag 




.LT. 




60">| 






.LE. 




61 






.EQ. 




62 






.NE. 




63 






.GE. 




64 


> 


right-just 


.GT. 




65 






•N. or 


.NOT. 


66 






.A. or 


.AND. 


67 






.0. qr 


.OR. 


70^ 






.F. or 
.T. or 


.FALSE. 
.TRUE. 


000000000- 
777777000- 


■ 07 

07 



Processing continues u^til the end of the statement (indicated by a zero 
word or a $) is encountered. The parentheses counter is then checked 
and, if zero, control is returned to the calling program. 



Subroutines Called ; ASV - Assemble Variable 

ASN - Assemble Number 
DEC - Convert Decimal Number 
ADF - Advance Tables 



Temporaries /Fla^s 



Tables Referenced: 



ICE - Multiple Statement Indicator (set) 
ILG - Logical Relation Count (set) 
INR - Justify Indicator (set) 
DFG - Data Statement Indicator 
TGK - Constant Tag (set) 

Constant Value Table (Table A) 
Constant Tag Table (Table B) 
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Entry /Exit Register Conditions 

Entry: B3, B4 = address in string buffer where normalization 
is to begin 

Exit: n/a " 



Note: B4 is advanced as entries are read from the string buffer and 
processed. B3 is advanced as entries are written back into the string 
buffer. 



TIQ 



TIQ - TRANSLATE INDIVIDUAL QUANTITIES 



The Translate Individual Quantities (TIQ) subroutine is called by 
various statement processing routines to translate all or a portion 
of the string into a series of tags, constants, and separators. On 
entrance to the TIQ subroutine, the B4 register contains the string 
buffer address of the location in the string where translation is to 
begin: translation is terminated on detecting the end of the state- 
ment. 

TIQ examines each string T?uffer entry to determine if it is a separator. 
If the entry is a separator and is not a period (i.e., a decimal point), 
the next entry in the string is examined. If the separator is a right 
parenthesis, it is assimied that the end of a list of arguments has been 
reached, and so the use of a function name as an argument is inhibited 
by setting the Inhibit Function Argument flag to zero (see Translate 
Variable description). If the entry is a period or is not a separator, 
it is assumed that this entry (and possibly succeeding entries) con- 
stitutes a variable or constant. If this entry is followed by a left 
parenthesis, it is either a function name or an array name. If this 
entry is nol^ followed by a left parenthesis, it is a simple variable, 
a constant, or an argument, and the Translate Variable (TRN) subroutine 
is called to perform the translation. If the entry is a constant, TRV 
will call TNK to translate the constant, and, depending on the type of 
constnat, either TNK or TRV will replace the string entry with a 
Constant Tag (K-tag) or, depending on the mode and magnitude of the 
constant, with the translated constant. In translating the constant, 
further compression of the string (i,e,, beyond that performed by TAB) 
may be required, since a constant may occupy several entries. This 
will be performed by TNK, If the string entry being examined is not 
a constant but is a variable, and function argument use is not allowed, 
TRV searches the Variable Name Table for the variable and, if not found, 
enters the variable in this table. In either case, the corresponding 
entry from the Variable Tag Table is entered in the string. If function 
argument use is allowed (i.e., if the string entry is part of an 
argument list), TRV searches the Subroutine Name Table as well as the 
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Variable Name Table. 

If the entry being examined is followed in the string by a left parenthesis, 
it may be a function name or an array name. If it is an array name, 
the name will have been entered in the Variable Name Table during 
processing of the DIMENSION statement, and so the absence of the name 
from this table indicates that variable is a function name. However, 
a function name may also be in the Variable Name Table (e.g., if specified 
in a Type statement). Therefore, in order to ascertain that entry is 
indeed an array name, TIQ scans the Array Tag Table to determine if it 
contains the Variable Tag for this entry. If the variable is an array 
name, this tag will have been entered in the Array Tag Table during 
processing of the DIMENSION statement. If the variable is an array name, 
TIQ enters the tag from the Variable Tag Table in the string, and gcses 
on to examine the next entry. 

If the variable was not in the Variable Name Table, or if it was in the 
Variable Name Table and the corresponding tag was not in the Array Tag 
Table (and was not a program tag), TIQ calls the Translate Special 
Function (TSF) subroutine to tag the variable, which must be a function 
name. TSF searches the Function Name Table, the Subroutine Name Table, 
and the library function tables for the function name and, if not found, 
enters the name in the Subroutine Name Table and generates a Library Tag 
for it. TSF returns a Library Tag to TIQ in all cases except that in 
which the function wa? one for which in-line code is generated: in 
the case, the function na pe is returned. The tag or name returned by 
TSF is entered in the string by TIQ. 



Subroutines Galled ; SCT - Scan Tables 

TRV - Translate Variable 
TSF - Tag Special Function 

Temporaries /Flags ; FAG - Inhibit Function Argument Use flag (set) 

ASF - Argument Reference Gount (set) 
ARI - Array Reference Count (set) 
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Tables Referenced ; Variable Name Table (Table M) 

Array Tag Table (Table P) 

Entry /Exit Register Conditions 

Entry: B4 « Address In string buffer where translatioa is 
' ' to begin 

Exit; n/a 
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TM ■• TRANSLATE CONSTANT 

The Translate Constant subroutine is called by the Translate Variable 
subroutine when the latter encounters a period (i.e., a decimal point) 
or a numeric entry in the string, or when the variable to be processed 
by TRV turns out to be an octal constnat of the form Onnnnnn. On 
entrance to TNK, the B4 register contains the string buffer address of 
the constant to be translated. 

TNK first checks column 1 to see if it contains a "B": if so, then the 
constant to be translated is an octal constant and the OCT subroutine is 
called to convert the number to its binary equivalent. Note that TRV, 
on detecting an octal constnat of the form Onnnnnn, deletes the 0, 
writes a "B" in the column 1 position of the string buffer, and calls 
TNK to translate the constant. 

If column 1 did not contain a B, TNK examines the entries preceding and 
following the constant tp determine if the constant is of the form 



[:] 



constant S 



The RUN compiler permits a statement number followed by the letter S 
to be used as a subroutine argument, so when the form described above 
is encountered, the Identify Statement Number (ISN) subroutine is called 
to determine if this statement number has already been tagged and, if not, 
to enter the statement number in the Statement Number Table (Table K) and 
a Statement Tag (H-tag) in the Statement Tag Table (Table L). If the 
statement was already tagged with a Program Tag (A- tag), the Program Tag 
is entered in the Permanent Tag Table (Table D) and a Statement Tag 
entered in the Temporary Tag Table (Table C). 

If the number is neither an octal number nor a statement number, TNK 
calls DEC to convert the number to its binary equivalent: DEC returns 
the converted number in X6 and a mode indicator in B6. If the number 
was a double precision number, both words of the number are entered in 
the Constant Value Table (Table A). Constant Tags (K-tags) are generated 
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for both entries and stored in the Constant Tag Table (Table B). The 
tag corresponding to the first word is entered in the string buffer. 

If the niimber was not double precision, TNK performs additional analysis 
of the constant in an attempt to eliminate a constant-associated plus or 
minus sign (i.e., as opposed to a sign indicating an arithmetic operation), 
to deterniine if the constant value itself can be entered in the string 
(eliminating the necessity of generating a tag), to determine if the 
constant is part of a complex constant, and finally to determine if a 
constant of this value has previously been entered in the Constant 
Value Table. This processing is summarized in figure TNK-1. 

16 16 

TNK will store a constant whose value is in the range -2 to 2 -1 in 

the buffer in the form shown below if the constant is an integer or 
octal constant. Also, a floating-point zero preceded by an equal sign 
and followed by an end of statement indicator is entered directly in 
the string. 



00. 



CONSTANT 




^ 1^1, 



^ ^ iTX 



59 



57 



42 



A flag (3) is set in the low-order 3 bits of the string entry to indicate 
•that the entry is a constant and not a Constant tag: the constant itself 
is shifted to the high-order bit positions. 



Floating-point, double precision, and complex constants, as well, as 

16 1 6 
integer and octal constants not in the range -2 to 2 -1 are entered 

in the Constant Value Table (Table A) and a Constant Tag (K-tag) is 

generated and entered in the Constant Tag Table (Table B). The mode 

indicator is then set in the low-order bits of the tag, and the tag 

entered in the string buffer. The tag format in the string is as follows; 
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TNK PROCESSING SUMMA.RY 



Note: Brackets are used to indicate entries preceding/following the constant 



FORM 



I* constant 
where constant = -0 



2. 



[=] 



constant 



[hs] 



where constant = and ES repres- 
ents the end of the statement 



3. 



irk 
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L -i 


L 







constant 



where L represents a logical 
operator 



where constant is integer or octal 



• [0 



constant 



[.] 



where constant is a floating- 
point number 



6. 



complex- 
cons tant- 
tag 



['] 



constant 



['] 



where constant is a floating- 
point number 



7. constant 

where constant is not double 
precision, not the first word of 
complex constant, and cannot be 
be entered directly in the string 
(as per 1 or 4 above) 



ACTION 



Store constant in the Constant Value table, 
generate a constant tag and store it in the 
string and in the Constant Tag table 



Enter the constant in the string 



Delete the plus sign. If the constant is 
not followed by **, delete the minus sign 
and complement the number 



Enter the constant in the string 



Set complex mode indicator and delete the 
left parenthesis from the string. Store 
constant in the Constant Value table, 
generate a constant tag and store it in 
the string and in the Constant Tag table 



Set complex mode indicator and delete the 
comma, the constant, and the right paren- 
thesis from the string. Store the constant 
in the Constant Value table, generate a 
constant tag and store it in the Constant 
Tag table but not in the string 



If the constant cannot be misinterpreted 
as part of a format, search the Constant 
Value table: if this constant is already 
entered, write the corresponding tag in 
string. If not already entered, enter it, 
generate a constant tag and store the tag 
in the string and Constant Tag table 



Figure TNK-1 
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The mode indicator may take on the following values. 

Constant Type Mode Indicator 



1 


Logical 


2 


Integer 


4 


Floating-Point 


5 


Double Precision 


6 


Complex 



In certain cases, the Constant Value Table is searched to determine if 

a constant of the same value has been previously entered. If it has, 

then the tag corresponding to this entry will be used. Prior to searching 

the Constant Value Table, the constant is checked to insure that it 

cannot be misinterpreted as part of a format statement: in other words, 

considering the constant as a sequence of 2-digit octal numbers, it is 

checked to see that at least one number falls outside the range - 57o. 

o 

If this is not the case, the Constant Value Table search is bypassed, and 
the constant entered in the table. 

Note that in the case of a double precision or complex constant, both 
words are entered in the Constant Value Table and tags generated for 
each word. However, only the tag corresponding to the first word is 
entered in the string. 

A constant may occupy several words in the string prior to translation: 
furthermore, in the translation of the constant, separators may be 
deleted from the string. Therefore, on exiting from the TNK routine, 
a check is made to determine if more than one entry has been translated 
and, if so, the entire statement is shifted down in the buffer. 



Subroutines Called ; OCT - Convert Octal Number 

ISN - Identify Statement Number 

ADF - Advance Tables 

DEC - Convert Decimal Number 



Temporaries /Flags ; TGH - Statement Tag (set) 
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TGK - Constant Tag (set) 

Tables Referenced ; Permanent Tag Table (Table D) 

Temporary Tag Table (Table C) 
Constant Value Table (Table A) 
Constant Tag Table (Table B) 

Entry/Exit Register Conditions 

Entry: B4 = address in string buffer of constant to be 
translated 

Exit: X6 = tag or constant value entered in the string 

B4 = address in string buffer of tag or constant value 
entered 



TRV 



TRV - TRANSLATE VARIABLE 

The TIQ subroutine (Translate Individual Quantities) translates string 
buffer entries other than separators into tags and constants. When 
TIQ encounters a string buffer entry which is not a separator and is not 
followed by a right parenthesis, it calls the Translate Variable (TKV) 
subroutine to translate the entry. On entrance to TRV, the address of 
the string buffer entry to be translated is contained in the B4 register. 

The entry to be translated is examined: if it is a period, or begins 
with a number, it is assumed that this entry and possibly succeedii^ 
entries ccMprise a constant, and so the Translate Constant (TNK) sub- 
routine is called to process the constnat. TNK will enter either a 

constnat tag in the string or, in the case of integer and octal constants 

16 16 
in the range -2 to +2 -1, will enter the constant value itself in 

the string. 

several tables to see if the variable has previously been tagged and. If 
it has, enters the corresponding tag in the string buffer in place of 
the variable. The first such table searched is the Argument Name Table 
(Table I), Next, the Inhibit Function Argtnaent flag is examined. This 
flag is set in TIQ when a function has been encountered, and is also 
set when processing the list of arguments in a CALL statement; it is 
cleared when the left parenthesis terminating the argument list is 
encountered. The Inhibit Function Argument flag is used to pemdt the 
use of a subroutine name as an argument only in a CALL or function 
statement. 

If the Inhibit Function Argxment flag is set, the Variable Name Table 
(Table M) is scanned: if the variable is found in this table, the 
corresponding tag is entered in the string buffer. If the variable 
was not found in the Variable Name Table, the Subroutine Name Table 
(Table S) is searched: if the variable is found in this table, the 
corresponding subroutine tag (L-tag) is entered in the string. If the 
variable was preceded by a comma or left parenthesis and is followed by 




DOES ENTRY BEGIN WITH A 
DECIMAL POINT OR DIGIT ? 



YES 



'^j_j:RANSIATE CONSTANT \- 



NO 



IS THIS VARIABLE AN ENTRY 
IN THE ARGUMENT NAME TABLE 
OR VARIABLE NAME TABLE ? 



YES 



ENTER CORRESPONDING TAG 
IN THE STRING BUFFER 



NO 



NO 



IS THIS VARIABLE AN ARGU- 
MENT OF A SUBROUTINE CALL 
OR FUNCTION STATEMENT ? 



YES 



IS THIS VARIABLE IN THE 
SUBROUTINE NAME TABLE ? 



YES 



ENTER CORRESPONDING TAG 
IN THE STRING BUFFER 



NO 



-i^ IS FIRST CHARACTER A 
FOLLOWED BY 6 DIGITS ? 



YES 






TRANSLATE CONSTANT 



NO 



ENTER THIS VARIABLE IN 
THE VARIABLE NAME TABLE 



GENERATE VARIABLE TAG 
SET VARIABLE MODE IN TAG 
ENTER TAG IN THE VARIABLE 
TAG TABLE AND IN THE 
STRING BUFFER 



EXIT 



r 



EXIT 



EXIT 
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a comma, equal sign, or right parenthesis, then the variable is assumed* 
to have been an argument, and so control is returned to the calling 
program. 

If the Inhibit Function Argument flag is not set, the Variable Name Table 
only is searched for the variable: if found, the corresponding tag is 
entered in the string buffer and control is returned to the calling 
program. If the variable is not found in the Variable Name Table or, 
for the special cases described earlier, in the Subroutine Name Table, 
the variable is examined to see if it could be an octal constant of the 
form Onnnnnn, If it is, the "0" is deleted, and the digits written 
back into the buffer. A "B" is then written in the column 1 position 
of the string buffer, and the Translate Constant subroutine called to 
translate the number. The tag/constant returned by TNK is then entered 
in the string, and control returned to the calling program. 

If the variable was not an octal constant, it is entered in the Variable 
Name Table and a Variable tag (V-tag) is generated. Column 1 is sensed 
to see if it contains a "D" (double-precision) or an "I" (complex) and, 
if so, the tag is advanced by 2: otherwise, the tag is advanced by 1. 
The first letter of the variable name is then examined to determine if 
it is an I, J, K, L, M, or N, and the mode indicator set accordingly. 
The mode indicator in the low-order three bits of the tag is set as 
follows: 



Mode Indicator 


Variable Type 


2 


Fixed Point 


4 


Floating Point 


5 


Double Precision 


6 


Complex 



The variable tag is then entered in the Variable Tag Table (Table N) 
and in the string buffer. 
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Subroutines Callf>d» tNK - Translate Constant 

SCT - Scan Tables 
ADF - Advance Tables 

Temporaries /Flaprs; FAG - Inhibit Function Argument Flag (set) 

INH - Column 1 Temporary (set) 
TGU - Variable Tag (set) 

Tables Referenced- Variable Name Table (Table M) 

Subroutine Name Table (Table S) 
Variable Tag Table (Table N) 

Entry /Exit Register Conditions 

Entry: B4 = address in string buffer of variable to be 
translated 

Exit: B4 = address in string buffer of tag/constant 
X6 = tag /constant 



TSF 



TSF - TAG SPECIAL FUNCTION 

The Tag Special Function (TSF) subroutine is called by various routines 
(e.g., TIQ, NDC, LST, FUN, etc.) to provide a tag for a function or 
subroutine name. On entrance to TSF the variable to be tagged is 
contained in the X6 register. TSF first searches the Function Name 
Table (Table E) to determine if the variable is the name of a pre- 
viously defined arithmetic statement function. If it is, the corres- 
ponding Function Tag (F-tag) is returned to the calling routine. If 
the variable is not found in the Function Name Table, the Subroutine 
Name Table (Table S) is searched. If the variable is found in this 
table and is not the first entry, the corresponding Subroutine Tag 
(L-tag) is returned to the calling program. The first entry in the 
Subroutine Name Table is the program name: if a function subprogram 
attempts to call a subprogram with the same name as the main program, 
an error exit occurs. 

nr>u^ '"cde of 2. function sub'^ro^ram ma,"^ be s'^'ecified in a Type state- 
ment. When a function name is encountered in a Type statement, the 
name is entered in the Variable Name Table, and a Variable tag containing 
the mode of the function is entered in the Variable Tag Table. Thus, 
when a function name is not found in the Function Name Table or in the 
Subroutine Name Table, TSF searches the Variable Name Table. If the 
name is found in this table, a Library tag is generated and the mode 
extracted from the Variable Tag and inserted in the Library Tag. The 
function name is then entered in the Subroutine Name Table, and the 
Library Tag entered in the Subroutine Tag Table (Table T) and returned 
to the calling program. A zero word is entered in the corresponding 
location in the Subroutine Parameter Table (Table U) to reserve space 
'for the subroutine parameters. 

If the variable was not found in the Variable Name Table, the tables of 
FORTRAN II and FORTRAN IV library function names are searched. If the 
variable name is found in these tables, a check is made (by determining 
the relative position within the table) to determine if in-line code is 
generated for this function. If so, control is returned to the calling 
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CHECK FUNCTION NAME TABLE 
IS VARIABLE A PREVIOUSLY 
DEFINED FUNCTION NAME ? 



YES 



^ EXIT 



NO 



CHECK SUBROUTINE NAME TABLE 
IS VARIABLE A PREVIOUSLY 
DEFINED SUBROUTINE NAME ? 



YES 



EXIT 



NO 



CHECK VARIABLE NAME TABLE 
IS VARIABLE A PREVIOUSLY 
DEFINED VARIABLE ? 



YES 



m^^ 



SET MODE INDICATOR FOR 
LIBRARY TAG TO MODE OF 
VARIABLE TAG 



NO 



IS VARIABLE A LIBRARY 
FUNCTION NAME ? 



YES 



NO 



SET MODE ACCORDING TO NAM- 
ING RULES OR LIBRARY 
LOCATION 



IS THIS FUNCTION AN 
IN-LINE FUNCTION ? 


— 


YES 






NO 




EXIT 
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ENTER VARIABLE/FUNCTION 
NAME IN SUBROUTINE NAME 
TABLE 



<^ 



GENERATE LIBRARY TAG 
INSERT MODE IN TAG AND 
ENTER IN SUBROUTINE TAG 
TABLE 



EXIT I 



BASIC FUNCTIONS 
TSr SUBROUTINE 



Figure TSF-1 
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routine: the function is returned in place of a tag. 

In order to avoid unnecessary duplication of library subroutines, a 
FORTRAN II function name is replaced by the equivalent FORTRAN IV 
function name. Since the FII and FIV names may differ, TSF searches 
the Subroutine Name Table again to determine if it contains the FIV 
function name. If it does, the corresponding Subroutine Tag is returned 
to the calling program. If it does not, the function name is entered 
in the Subroutine Name Table and the corresponding entry reserved in the 
Subroutine Parameter Table, A Library Tag is generated, the function 
mode inserted, and the tag entered in the Subroutine Tag Table and' 
returned to the calling program. If the function name was not found 
in the tables of FORTRAN II and FORTRAN IV function names, the table 
of double precision function names is searched: if the variable name 
is found in this table, it is processed in a manner very similar to 
that for FII or FIV function names. 

If the variable name was not found in the Function, Subroutine, or Variable 
Name Tables, and was not a library function, then it is the first 
reference to a programmer-defined function subprogram, and so the 
variable name is entered in the Subroutine Name Table, The mode of the 
variable is determined by the FII or FIV naming rules, and inserted in 
a generated Library Tag, The Library Tag is entered in the Subroutine 
Tag Table and returned to the calling routine. 

The mode indicator set in the low-order bits of the Library Tag has 
the same connotation as the mode indicator in Variable or Constant 
Tags: a 2 indicates integer mode, a 4 indicates floating-point mode, 
and so on. 



Subroutines Called ; SCT - Scan Tables 

ADF - Advance Tables 
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Temporaries /Flap:s i 



KJC - Return Jximp Count (set) 

FSR - Function Statement Reference Count (set) 

IPS - Program/Subprogram Indicator 

SRI - Subroutine Reference Count (set) 

MOD - Subprogram Mode 

TGL - Library Tag (set) 



Tables Referenced ; Variable Name Table (Table M) 

Function Name Table (Table E) 
Subroutine Name Table (Table S) 
Subroutine Tag Table (Table T) 
Subroutine Parameter Table (Table U) 



Entry /Exit Register Conditions 

Entry: X6 = Variable to be tagged 

Exit: X6 - Library tag or, in the case of an in-line 
FII or FIV function, the FIV function name 
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TTT - REPLACE TEMPORARY TAGS 

This routine is called during the processing of the END statement in 
order to replace any temporary tags that were generated during com- 
pilation with corresponding permanent tags. The K portion of each 
thirty bit instruction is examined to see if it is a temporary tag. If 
it is, the Temporary Tag Table is searched to see if the tag is there 
and the permanent tag replaces the temporary tag in the object code. 
If the tag is not there, the reference is ignored. Temporary tags are 
used to tag a referenced location that has not yet been defined such as 
in the GO TO 10 statement. If 10 is not yet defined, a temporary tag 
is generated for it. When it becomes defined, the assembled location 
tag for the statement number is entered into the corresponding location 
in the Permanent Tag Table. Also temporary array reference tags may 
also be generated in the evaluation of the left member of an arithmetic 
expression. For instance, in the evaluation of A(I+5) = ... an Array 
Tag along with an address increment is entered into the Temporary Tag 
Table and the Array Tag for the A array is entered into Permanent Tag 
Table. These are handled in the process special array tags routine. 



Subroutines Called ; SGT - Scan Tables 

Temporaries /Flags : ZAB - Short File Start 

Tables Referenced : Temporary Tag Table (Table C) 

Permanent Tag Table (Table C) 

Entry /Exit Register Conditions : None Used 
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UNP - UNPACK PARENTHESIS 

UNP controls the processing of an arithmetic statement until all portions 
of the statement that appear within parenthesis have been evaluated. 

The statement is searched backs7ards, starting with a specified location, 
until either a left parenthesis or column 6 is found. When a left 
parenthesis is detected, the entry previous to it is examined to see if 
it is a separator. If it is, an arithmetic expression imbedded in 
parenthesis has been found. CXP is called to compile instructions to 
evaluate the expression; the expression 'itself is replaced by a temporary 
tag in the string and an instruction is compiled to save tte result of 
the evaluation in this temporary. The search backwards for another left 
parenthesis is resumed. If the entry previous to the left parenthesis 
was not a separator, the parenthesis could be for an array reference or 
could be used to set off the arguments to a subroutine or function. In 
the case of an array reference, the rest of the statement is searched 
back to column 6 to see if this same array reference appears again. If 
it does not, the reference is not processed at this time. Otherwise, 
the CSR routine is called to compile instructions to bring the address 
of the specified array entry to an index register. This address is then 
saved in an indirect and all of the array references in the statement are 
replaced by this indirect tag. 

The last case is the subroutine or function reference. The CRF routine 
is called to compile the instructions to make the call to the function/ 
subprogram. It will take care of built-in functions, statement functions, 
and function-subprogram references. The function /subprogram reference 
in the string is replaced by a temporary tag, and instructions are 
compiled to store the result of the function/subprogram in this temporary. 

If the left member of the expression is a dimensioned variable, UNP will 
call CSR to compile the instructions to bring the address of the entry 
to an index register. The string entry will be replaced by an: indirect 
tag and the address of the array entry will be stored in this indirect. 

UNP will exit once column 6 has been reached. 
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Subroutines Called ;' ALX - Assign Long Register 



ANO - Analyze Address Generating Instruction 
for Left Member 

CRF - Compile Function Reference 

CSR - Compile Subscripted Reference 

CXP - Compile Expression 



Temporaries /Flags ; 



AEI - Array Reference Count 
ICD - Subroutine Reference Tag 
IGX - Current Index Assignment 
INY - Complete Unpack Indicator 
SRI - Subroutine Reference Count 
TBP - P Table Parameters 
TGI - Indirect Tag 
TGT - Temporary Tag 
TMF - Start of Array Reference 
TOT - Temporary for Unpack 
VTA - A Register Associate 
VTY - X Register Associate 



Tables Referenced ; Array Tag (P) 

Array Parameters (Q) 



Entry /Exit Register Conditions ; 

Entry; B4 - Location at which Scan should start 
Exit: None 
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WVM - WRITE VARIABLE MAP 

This routine is called during the processing of an END card just before 
the return to thfi main loop for the next subprogram is made. If there 
were any program errors, the map is not printed. Otherwise, the Function 
Name Table, the Statement Number Table, and the Variable Name Table are 
used to help form the map. The corresponding tag in each table is 
examined to see if it has been equated to a memory location. If so, 
the name of the function, the statement number, or the variable name 
along with its memory location extracted from the J Table entry, is listed. 
If the tag is not in the J Table, it is ignored. 

After all functions, statement numbers, and variable assignments have 
been listed, the base address of the constants and indirects are 
converted to display code and listed. 



Subroutines Galled ; PNI - Print Item 

SCM - Scan Table With Masking 
WNX - Write Coded Record 

Temporari es /Flags ; BAI - Base Address for Indirects 

BAK - Base Address for Constants 
BAT - Base Address for Temporaries 
FLG - Program Error Flag 
MOD - Subprogram Mode 
MPI - 
MPF - 

MPK - Map Headers 

MPN - 
MPT - 
MPV - 

PNM - Program/Subprogram Name 
TBE - 
TBF - 

TBJ - Table Parameters 
TBK - 
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TBL - 

TBM - Table Parameters 

TBN - 

TMA - Pseudo-Statement Nimber for Indexed Lists 



Tables Referenced ; Function Name (E) 

Function Tag (F) 

Argument Name (J) 

Statement Number (K) 

Statement Tag (L) 

Variable Name (M) 

Variable Tag (N) 

Entry /Exit Register Conditions ; None 
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{ CHIPPERK FORTRAN COMPILER . RUN | 



CLEAR CHAIN INDICATOR 
CLEAR ERROR INDICATOR 



CALL CHK PACK'^GE TO PPU 
REQUEST OUTPUT FILE STATUS 



IS FIELD LENGTH ADEQUATE 
FOR CC»^PIL^TION? 



-— ^■^■ ("STOP 
NO 



j INITIALIZE FOR INPUT/OUTPUt] 



TRANSFER RECORD FROM 
CIRCULAR BUFFER TO CARD 
BUFFER 



INITIALIZE PROGRAM TABLES 



INITIALIZE SUBPROGRAM 
TABLES 



IS THIS A BINARY DECK ? 
(+ OR - IN COLUMN I) 



PROCESS END STATEMENT 



ASSEMBLE STATEMENT FROM 
CARD BUFFER IN STRING 
BUFFER 



ARE THERE MULTIPLE 
STATEMENTS ON THIS CARD 



REPLACE $ IN STRING BUFFER 
VITH END OF STATEMENT 
INDICATOR (ZERO WORD) 



SET FUNCTION TYPE 

BUNK OUT THIS POf.TION OF 

STRING 



ASSEMBLE NEXT 7 LETTERS 



K 



ARE LETTERS "ASCENTF" ? 



SET SUBPROGRAM MODE 
INDICATOR TO -2 



ARE LETTERS "M\CHINE" ? 



SET SUBPROGRAM ifODE 
INDICATOR TO -1 



ARE LETTERS " FORTRAN" ? 



ASSEMBLE NEXT 2 LETTERS 



SET SUBPROGRAM MODE 
INDICATOR TO I 
ARE LETTERS "II"> 



SET SUBPROGRAM M03E 
INDICATOR TO 
ARE LETTERS "IV"? 



SET SPECUL MODE INDICATOR 
ARE LETTERS "Vt" ? 



-© 



■*© 



<£) 



■KE) 



NAME CARD ERROR 



SAVE SUBPROGRAM TYPE 
SAVE CURRENT PROGRAM 
SUBPROGRAM INDICATOR 



IS THIS THE FIRST PROGRAM 
OR SUBPROGRAM ? 



SET PROGRAM MODE INDICATOR 
EQUAL TO SUBPROGRAM MODE 
INDICATOR 



SAVE PROGRAM TYPE 

SET PROGRAM/SUBPROGRAM 

INDICATOR 



IS THIS STATEMENT LISTED 
IN PR03RAM TITLE TABLE ? 



IS THE FIRST LETTER OF 
THIS STATEMENT AN "R" ? 



IS THE FIRST LETTER OF 
THIS STATEMENT A "D" ? 



i ASSEMBLE FIRST 10 LETTERS ] 



IS THIS STATEMENT 

"DOUBLEPREC" ? 



ASSEMBLE LETTERS 



IS THIS STATEMENT LISTED 
IN THE TITLE TABLE ? 



©*- 



IS THIS STATEMENT 
"DOUBLE" ? 



-*>/c^ 



NEXT PAGE 



RAHE CARD ERROR 



s 

^ 



Qy 



FROM PRECEDING PAGE 



? 



CLEAR DATA STATEMENT 

INDICATOR 

CLE^R RETURN JUMP COUNT 



CLEAR REGISTER ASSIGNMENT. 

COl'!«T 

CLEAR LOGICAL IF INDICATOR 



ADVANCE PROGR,\X TAG 
SAVE PROGRAM TAG AS 
CURRENT TAG 



SET INDEX ASSIGN-MENT, 
HIGHEST INDEX COUNT TO 
NUMBER OF ARGUMENTS 



GET STATEMENT Nl'MBER 
CHECK UPCOMING STATEMENT 
NUMBER 



CLEAR STATEMENT PROCESSING 
COUNTERS AND INDICATORS 



<D 



RETURN FROM 
PROCESSING 
LOGICAL IF 
STATEMENT 



IS rriERE AN F IN COLUMN 1? 
(FlI EXTERNAL FUNCTION) 



PROCESS FUNCTION NAME 



^RE FIRST TWO LETTERS OF 
STATEMENT "DJ!- ? 



I SENSE Dg STATEMENT ) 



L>C 



SENSE for.m':la 



I ASSEMBLE FIRST 4 LETTERS "] 



ARE THESE LETTERS IN THE 
PARTIAL STATEMENT NAME 
TABLE ? 



IS A LOGICAL IF STATEMENT 
BEING PROCESSED 7 



IS THE CURRENT JUMP 
1ND1C^T0R SET ? 



IS THIS A NON-EXECUTABLE 
STATEMENT ? 



CLEAR CURRENT JUMP 
INDICATOR 



TRANSFER TO STATEMENT 
PROCESSING ROUTINE 



RETURN FROM STATEMENT PROCESSING 



© 



ASSEMBLE NEXT STATEMENT | 



TEST SUBPROGRAM MODE 
INDICATOR 
IS THIS A FORTRAN PROGRAM? 



-»>{ PROCESS MXCHIXE/ASCFNT "~] 



ARE THERE MULTIPLE STATE- 
MENTS ON THIS CARD ? 



d>- 



clej\r end statement 
indicator 



TEST SUBPROGRAM MODE 

INDICATOR 

IS TH-'; A FORTRAN PROGRAM? 


VES 








YES 




FOR THIS STATEMENT ? 




NO 






NO 




IS THIS AN ALLOWED ASCENT 
OR MACHINE STATEMENT T 




CLEAR CONTINUE INDICATOR 
WAS THE CONTINL'E INDICATOR 
SET ? 


YES 










NO 






NO 




MACHINE FORMAT ERROR 




CLEAR COMPILED INSTRUCTION 
REGISTER (REGISTER X7) 


















TRANSFER TO STATEMENT 
PROCESSING Ra'IlNE 


-*-! 






. 1 






f^ 





ARE LETTERS "TYPE" ? 



3-1 



FORMAT ERROR 



ASSEMBLE NEXT 4 LETTERS 







/f 



I 



IaFS . ASSEMBLE FORTRAN STATEMENT | 



SET INSTRUCTION START 
ADDRESS 



ARE THERE MULTIPLE STATE* 
MENTS ON THIS CARD 7 



IS THIS THE START OF 
COMPIUTION ? 



YES 



YES 



BUNK OUT UST STATEMENT 
LOCATE START OF NEXT STATE. 
MENT IN STRING BUFFER 



— r ^ ^^° °'' ^^^^ REACHED 1 I — 



U\S AN END CARD JUST 
PROCESSED ? 



YES 



ENDFILE ERROR 



I END OF FILE REACHED ; [ ——m^ 



PROCESS END STATEMENT 



DOES COLUMN I CONTAIN «."? 



YES 



PACE EJECT 
LIST THIS CARD 
INPUT NEXT CARD 



DOES COLUMN 1 CONTAIN "C"T \ » j| IS THIS A FORTRAN PROGRAM? 

■ YES ' I 

NO I YES 



I DOES COLUMN 1 CONTAIN "*"? ]- 



DOES COLUMN 1 CONTAIN 



©•i— 



HO 



ZiiLh 



YES 



SaN RECORD IN CARS BUFFER 
IS TKIS A BLANK RECORD t 



YES 



LIST THIS CARD 
INPUT NEXT CARD 



CLEAR MULTIPLE STATEMENT 
INDICATOR 



TRANSFER CHARACTER FROM 
CARD BUFFER TO STRING 
BUFFER (1 CHAR. /WORD) 



< © 



IS MULTIPLE STATEMENT 
INDICATOR SET 1 



I tIA.S CHARACTER A "$" ? 
YES 



SET MULTIPLE STATEMENT 
INDICATOR TO ADDRESS OF $ 
IN STRING BUFFER 



HAS ENTIRE CARD BEEN 
PROCESSED 7 (72 CHARS.) 



MARK END OF CARD IK THE 
STRING BUFFER 



YES 



YES r~ H IS THIS A FORTRAN PROGRAM?] 
NO 



ASSEMBLE MNEMONIC CODE 



SET MACHINE HEADING 
INDICATOIt 



HAS AH IHSTUJCTION 
ASSEMBLED } 



YES 



LIST THIS CARD 
INPUT NEXT CARD 



I END OF FILE REACHED 7 \ —— i EXIT | 



I 



NEXT 
PAGE 



1 



I IS THIS A FOKTK/\N PROGR.\iiT] 



IS COMPILE MODE M OR L 7 



zn 



TRANSFER RUNNING ADDRESS 
TO BUFFER FOR LISTING 



IS COLUMN 6 BUNK 7 



13.;^ 



IS THIS A FORTRAN PROf;RAM?t 

NO 



DOES COLUMN 6 CONTAIN 



M»II7 I 



YES 



DOES COU.'MN 6 CONTAIN "0"? [ tj- 
NO 



© 

NEXT 
MCE 



2>. 



PREVIOUS PAGE 

© 



L EXITj q fDOES COLlfftN 1 CONTAIN ".»?" 



I 

4>- 



PREVIOUS 
PAGE 



W** (does column 1 CONTAIN "C-t\ 



1^ yj,g {does column 1 C0MTAIX~T71 



LHIL3*9 ' i does COLL 'MN 1 contain "S»?I 

YES ' — r — — •' 



C^lD-a-^g 1 is COLITMN 6 BLANK ? I 



I IS ' 



this a FORTRAN PROGRAM iV 



NO 



~ 1 DOES COLUMN 6 CONTAIN "*"?| 



i EXIT N ( DOES COLUM N 6 CONTAIN "0" 



HAS CONTINUATION CARD 
LIMIT BEEN REACHED ? 






TRANSFER COLUMNS 7-10 
FROM CARD BUFFER TO 
STRING BUFFER 



1 



IS MULTIPLE STATEMENT 
INDICATOR SET ? 



NO 



j WAS THERE A $ IN COLUMNS 
I 7 - 10 ? 



YES 



SET MULTIPLE STATEMENT 
INDICATOR TO ADDRESS OF $ 
IN STRING BUFFER 



SET INDEX REGISTER TO 
CONTINUE TRANSFER 
BEGINNING WITH COLUMN U 



I 



PREVIOUS PAGE 



FROM PREVIOUS PACE 







LIST THIS CARD 
INPUT NEXT CARD 






CLEAR MULTIPLE STATEMENT 
INDICATOR 



I END OF FILE REACHED ? \ 



JPOES COLUMN ICONTAIN "."?"[■ 



-{does column 1 CONTAIN "C" ?| 



I DOES C0LU>1N 1 CONTAIN "•n^'). 



[DOES COLUMN 1 CONTAIN "$" ?| 



NO 



1 IS THIS A FORTRAN PROGRAM f| 



{does column 6 CONTAIN "*" j\ 



IS COLUMN 6 BLANK ? \- 



i DOES COLUMN 6 CONTAIN "O-TI »{ CONTINUATION 



1» 

5 



Ui 



I ASl . 



ASSEMBLE LETTERS 



CLE.\R ASSEMBLY RE:.ISTEft 



READ CHARACTER FROM 
STRING BUFFER 



I END or STATEMENT RF.\:".EP 
NO 



YES 



—1 IS CHAR.\CTER A BLXNn ? "] 



YES 



I IS Cr:\R.\CTER \ LETTER ? H" 



PACK CHARACTER IS THE 
\SSEMBLV REGISTER 



HAVE SPECIFIED Nl-MBER OF 
LETTERS BEEN' PROCESSED 7 



LEFT JUSTIFY THE CONTENTS 
OF THE ASSEMBLY REGISTER 



{ ASM . ASSEMBLE MNEMONIC CODE 1 



I CLEAR ASSEMBLY REGISTER j 



READ CHARACTER FROM 
STRING BUFFER 



|ESD of STATEMENT REACHED ? \ 



YES 



IfES I lis CHARAC7F.R A SPACE ? | 



-»» JIS CHARACTER A LETTER T "[ 



PACK CHARACTER IN THE 
ASSEMBLY REGISTER 



HAVE 4 LETTERS BEEN 
ASSEMBLED ? 



■*0 



READ CHARACTER FROM STRING 

BUFFER 

END OF STATEMENT REACHED ? 



Jn( 



1 



HAS LAST C HARACTER A "Z"? 
YES 



I SET ASSEMBLY COUNT TO 1 \ - 



LEFT JVSTin' CONTEXTS 
OF THE ASSEMBLY REGISTER 



I WERE 3 LETTESiJ ASSr:::?.'?' \ 



IS NEXT CiUK-VCTi" \ sivri 






SET ASSEMBLY <\r:v: 



lis THIS A MXCrflNc ?Ri.''JK.\::.' 
NO 



] -HIHD 



IS NEXT CHAR.\CTER A 

SEPARATOR ! 



SET ASSEMBLY COUNT TO I 



I EXIT t <- 



CTN 



I ASN . ASSEMBL E NLfMBERS | 



CLEAR ASSEMBLY REGISTER 



READ CHARACTER FROM 
STRING BUFFER 



1 ^S CHARACTER A SPACE ? "| 



I IS CRARACTER A ZERO ? ~\ 



IS A STATEMENT NUMBER 
BEING ASSEMBLED 7 



*»| IS CHARACTER A LETTER ? "^Sl 



I IS CHARACTER A NUMBER ? "] fci 



PACK CHARACTER IN THE 
ASSEMBLY REGISTER 



HAVE 7 NUMBERS BEEN 
ASSEMBLED ? 



LEFT JUSTIFY THE CONTENTS 
OF THE ASSEMBLY REGISTER 



{were ANY NUMBERS ASSEMBLED? 



SET A DISPLAY CODE ZERO 
IN THE ASSEMBLY REGISTER 
(LEFT JUSTIFIED) 



READ CHARACTER FROM THE 
STRING BUFFER 



j SET ASSEMBLY COUNT TO ] 



" 1 IS CHARACT ER A SPACE ? 

YES 



I EXIT I **- 



i ASV . ASSE>iBLE VARIABLE " | 



\ CLE^R ASSEMBLY REGISTER j 



:[ 



READ CHARACTER FROM THE 
r-jT-J STRING BUFFER 



1 IS CHARACTER A SPACE 7 I 

cc ' "I I 



IS CHARACTER ALPHANUMERIC? 



NO 



I END OF STATEMENT REACHED? ~\- 



PACK CHARACTER IN THE 
ASSEMBLY REGISTER 



HAVE 7 ALPHANUMERIC CHAR- 
ACTERS BEEN ASSEMBLED 7 



READ CHARACTER FROM THE 
STRING BUFFER 



YES 1 IS CHARACTER A SPACE 7 j 



LEFT JUSTIFY CONTENTS OF 
THE ASSEMBLY REGISTER 



GI 



CHARACTER AN "*m ■> 



I..IS THIS A FORTRAN PROGRAM ?f - 



PACK * IN THE ASSEMBLY 
REGISTER 



JL^' 






pCDI - COMPILE Dg INITIAL INSTRS. | 



ENTER STATEMENT NUMBER IN 
D0 NUMBER TABLE 



IS INITIAL VALUE AN 
INTEGER VARIABLE ? 



H INITIAL VALUE A CONSTANT ? j f j DP ERROR | 



COMPILE READ INSTRUCTIONS 
WERE INSTRUCTIONS 
CCWPILED 1 



YES 

I MILL VALU E BE IN X6 ? 



CmPILE 7160 CON (SX6 -= X) 
TO SET INITIAL VALUE 



COMPILE 106X0 (BX6 ■= Xj) 
TO BRING VALUE TO X6 



CLEAR ARGUteNT NAME TABLE 
CLEAR ARGUMENT TAG TABLE 



COMPILE WRITE INSTRUCTIONS 

(TO STORE INDEX) 

TAG STORE WITH PROGRAM TAG 



READ STRING ENTRY PRECEDING 
INCREMENT FIELD 
IS ENTRY A "," ? 



READ STRING ENTRY FOLLOW- 
ING INCREMENT FIELD 



IS THIS ENTRY AN END OF 
STATEMENT INDICATOR ? 



IS EOTRY AN END OF STATE- 
MENT INDICATOR ? 



IS AN IMPLIED D0 LIST 
BEING PROCESSED 7 



D0 ERROR 



IS m IMPLIED 09 LIST 
BEIN>: PROCESSED ? 



I IS THIS ENTRY A ")" ? | tt j INDEXED LIST ERROR j ^ 1 IS ENTRY A ")" t \ 



SET INCREMENT TO 1 
SET CONSTANT HODl IND. 



SAVE ADDRESS OF INDEX 
STORE INSTRUCTION 



SEAO IHCREMENT FIELD 

IS INCREMENT A CONSTANT T 



IS IKCREHENT QUAWTITY AH 
INTEGER VARIABLE TAG T 



NO 



Dg ERROR 



i 



READ STRING ENTRY PRECEn- 
ING LIMIT FIELD 
IS ENTRY A ",' ? 



READ LIMIT FIELD 

IS LIMIT QUANTITY AN 

INTEGER VARIABLE TAG 



LIMIT QUANTITY A CONSTANT? 



YES 



ASSEMBLE ADDRESS OF INDEX 
STORE, INCREMENT, & LIMIT 
ENTER IN D(& PARAMETER TABLE 






© 



CX3 



( CTU ■ PROCESS CONTmJE STATEMENT") 



REDUCE PROCR.\M TAG BY ONE 
TO NULLIFY THE LAST 
ADVANCE 



IS D^ TERMINATION 
INDICATOR SET ? 



PROCESS STATEMENT NL'MBER 
(PSV ENTRY) 



DOES THIS STATEMENT H.\VE 
A STATEMENT NUMBER ? 



CONTINUE ERROR 



CLEAR ARGUMENT NAME TABLE 
CLEAR ARGUMENT TAG TABLE 
SET CONTINUE INDICATOR 



PROCESS STATEMENT NUMBER 
(PSM ENTRY) 



\ CUN - TAG UPCOMING STATEMENT NO. ] 



WAS AN UPCOMING STATEMENT 
NUMBER FOUND ? 



H> j exitI 



IS STATEMENT NUMBER IN THE 
STATEMENT NUMBER TABLE ? 



RETURN ZERO IN PLACE OF 
TAG TO CALLING ROUTINE 



[ EXIT H >- 



|CUS - CHECK UPCOMING STATEMENT NO. | 



READ COLUMN 1 OF C<^RD IN 
CARD BUFFER (NEXT CARD 
LOOK-AHEAD) 



DOES COLUMN 1 CONTAIN "C 
"*", OR "$" ? 



LIST THIS CARD 
INPUT NEXT CARD 



DOES COLUMN 1 CONTAIN A 
NUMBER ? 



ASSEMBLE THE CH.\RACTERS 
IN COLUMNS 1 - 5 
DELETE SPACES 



ASSEMBLE THE CHAR,\CTERS 
IN COLUMNS 2-5 
DELETE SPACES 



SAVE UPCOMING STATEMENT NO. 
CLEAR UPCOMING STATEMENT 
INDICATOR 



i"AS STATEMENT NUMBER ZERO ?| 



SET UPCOMING STATEMENT 
INDICATOR 



ASSEMBLE CHARACTERS IN 
COLUMNS 6-10 
DELETE SPACES 



SAVE CHARACTERS AS 
UPCOMING CHARACTER GROUP 



ARE THE FIRST TWO 
CHARACTERS "D0" 7 



IS THE NEXT CHARACTER 
A NUMBER ? 



ARE THE FIRST THREE 
CHARACTERS •'C^T" ? 



SET UPCOMING STATEMENT 
INDICATOR 



> | EXIT U - 



c: 
c: 

0) 



I 

VO 



[ DEC - COSSTRT DiriM'.L KUKBER | 



READ NEXT 2 STRING ENTRIES 
IS 1st ENTRY A SEPARATOR? 



IS FIRST ENTRY AN END- 
OF-STATEMF.NT INDICATOR 



IS FIRST ENTRY A "B" ? 



READ NEXT {3rd) STRING 

BUFFER ENTRY 

IS 2nd ENTRY A SEPARATOR ? 



IS SECOND ENTRY AN END- 
OF-STATEMENT INDICATOR ? 



lis SECOND ENTRY A "B" ? 



IS THIRD ENTRY A "B" ? 



CONVERT OCTAL CONSTAUT 
SET LOGICAL MODE INDICATOR 



1 exit! 



CLEAR ASSEMBLY REGISTER 
INITULI2E DIGIT COUNT 
SET FIXE 3 MODE INDICATOR 



h: 



READ STRING BUFFER ENTRY 



IS THIS ENTRY AN END- 
OF-STATEMENT INDICATOR ? 



■K5 



llSTHIS ENTRY A SEPARATOR ? | tS ^ WAS SEPARATOR A " . " ? | 



SET FLQATHK MODE INDICATOK 
INITIALIZE DIGIT COUNT FOR 
FRACT10N.\L PART 



READ STRING BUFFER ENTRY 
END OF STATEMENT REACHED ? 



IS ENTRY A SEPARATOR ? 



YES 



EXTRACT CHARACTER 
HAVE AIL CHARACTERS IN 
WORD BEEN EXTRACTED ? 



I IS CHARJicTER A NUMBER ? ] 



CONVERT NUMBER TO BINARY 
POSITION BITS IN ASSEMBLY 

REGISTER 



K 



19 DIGITS PROCESSED ? 



DECIMAL-CONSTANT ERROR 



1 



[exit K - 



INTEGER RANGE EXCEEDED ? 
l.«., |nl> 2" - 1 



EXTRACT CHARACTER 
H\VE ALL Cll\R.\CTERS IN 



YES ft> uoRO BEEN EXTR-VCTED 



NO 



IS CRARACTER A NUMBER 



CONVERT NUMBER TO BINARY 
POSITION BITS IN 
ASSEMBLY REGISTER 



19 DIGITS PROCESSED ? 



DECIMAL CONSTANT ERROK 



DOES ASSEMBLED INTEGER 
PART PLUS FRACTIONAL PART 
EXCEED 211 DIGITS ? 



DECIHVL CONSTANT ERROR 






1:^-© 



DECIMAL-CONSTANT ERROR 



?1 



is. 

I 

O 



FROM PREVIOUS PAGE 



SAVE NUMBER OF DIGITS IN 

FRACTIONAL PART 

CONVERT NUMBER TO FLOATING 



WASLASTCHARACTER AN "E 



NO 



I WAS LAST CHARACTER A "D" ? | ■ JS'/c) 



I SET DP MODE INDICATOR | 



rfejoOES AN EXPONPIT FOLLOW ? '"j 



DELETE LETTER (E OR D) 
WRITE EXPONENT BACK IN 
STRING BUFFER 



READ NEXT STRING BUFFER 

ENTRY 

IS ENTRY A "." ? 



I IS ENTRY A " V 11 ? 




YES 

-P5B 



EXTRACT CH\RACTER 
HAVE ALL CHARACTERS IN 
WORD BEEN EXTRACTED 7 



D 



NO 



I IS ai.R..CTER A NUMBER ? { 1> {; PEcmL CONSTAN T ERROR ' 



CONVERT NUMBER TO BINARY 
POSITION BITS IN ASSEMBLY 
REGISTER 



-o 



-n 



i 



WAS EXPONENT PRECEDED BY 
A MINUS SIGN ? 



i COMPLEMENT EXPONENT I 



SUBTRACT NUMBER OF DIGITS 
IN FRACTIONAL PART FROM 
EXPONENT 



IS RESULT NEGATIVE ? j 



COMPLEMENT EXPONENT 



IS EXPONENT OUT OF RANGE ? 
(GREATER THAN 464g ?) 



I DECIMAL CONSTANT ERROR | 



I CONVERT EXPONENT FROM 
-^j POWERS OF TEN TO POWERS 
lOF TWO 



COMBINE EXPONENT AND 
COEFFICIENT 






1 EXIT I 



I CSN - GET STATEMENT SI'MDER | 



CLEAR Dt) TERMISATION 
INDICATOR 



READ COLLTIN I 

DOES IT CONTAIN "B" , "D", 

ifcF", OR "I" ? 



ASSEMBLE NL'MBER BEGINNING 
AT COLUMN 2 



ASSEMBLE NUMBER BEGINNING 
AT COLUMN 1 



WAS A NON-SPACE, NON. 
NUMERIC CHARACTER FOUND? 



-W STATEMENT NO. FIELD ERROR 



1 WRITE A SPACE 


IN COLUMN 6 


1 










WAS a' NON-ZERO NUMBER 
ASSEMBLED 7 








_jj rvTT 1 




NO '^-^^ 






YES 




IS STATEMENT NUMBER IN 
THE DC NUMBER TABLE ? 




NO 






YES 




IS STATEMENT NUMBER IN THE 
STATEMENT NUMBER TABLE ? 




YES 
1 fe< 






NO 




1 IS CONTINUE INDICATOR SET? 










NO 


' YES 




SET 00 TER>fINAT10N 
INDICATOR EQUAL TO 
STATEMENT NUMBER 




CLEAK AJtCUMEN 
CLeAR ARCUMEN 


T NAME TABLE 
T TAG TABLE 












d 








^J P 









) 

to 



j I FT - INITIALIZE PROGR^Ui TABLES" 



CLEAR PROGRAM- REUTED 
FLAGS AND INDICATORS 



SET NAME FOR DiAYFILE 
TO '•*******" 



SET LATEST BUFFER ADDRESS 
EQUAL TO FIELD LENGTH 



SET SHORT FILE START EQUAL 
TO LONG FILE START 



SET UNUSED SPACE INDICATOR 
TO COMPILER FIELD LENGTH 



INITIALIZE SUBROUTINE TAG 
SET UP SUBROUTINE NAME, 
TAG, PARAMETER TABLES 



SET UP COMMON BLOCK AND 
PROGRAM FILE NAME TABLES 



[ EXIT I 



ISL - IDENTIFY SYMBOLIC TAG ~] 



ARE THERE MORE THAN 
SIX CHARACTERS IN THIS 
VARIABLE ? 



IS THIS VARIABLE IN THE 
ARGUMENT NAME TABLE ? 



[ GENERATE STATEMENT TAG ] 



COMBINE STATEMENT TAG AND 
VARIABLE, ENTER IN THE 
ARGUMENT NAME TABLE 



3 



-»» f EXIT I 



RETURN TO ERROR EXIT IN 
PROCESS KACHINE/ASCENT 
RECORDS SUBROUTINE (M\Y) 



I ISN - IDENTIFY STATEMENT NO. | 



I DELETE LEADING ZEROES ") 



ARE THERE MORE TKAN FIVE 
CHARACTERS IN THIS VALUE? 



ARE THERE ANY NON-NUMERIC 
CHARACTERS IN THIS VALUE? 



STATEMENT NUMBER ERROR J 



IS THIS VALUE IN THE 
STATEMENT NUMBER TABLE ? 



ENTER VALUE IN THE 
STATEMENT NUMBER TABLE 



GENERATE STATEMENT TAG 
ENTER STATEMENT TAC IN THE 
STATEMENT TAG TABLE 



-» t EXIT i 



r- 



CO 



NDC - PROCESS ENCODE/DECODE 
ARGUMENTS AND LIST • 



ASSEMBLE VARIABLE 
ARE LETTERS "DE" ? 



"M- 



FORH^T ERROR 



I IS NEXT CHARACTER A "(" ? H 



ASSEMBLE VARIABLE 

IS NEXT CHARACTER A "," ? 



- H ARGUMENT- LI ST ERROR 



TRANSLATE VARIABLE 

IS VARUBLE A CONSTANT ? 



COMPILE 6140(C0N) 
(SB4 = CONSTANT) 



COMPILE READ INSTRUCTIONS 



COMPILE 634 JO^ (SBA = Xj) I 



PROCESS FORMAT NU>IBER/TAG 



IS CONSTANT GREATER THAN 
177777B ? 



IS NAMELIST INDICATED ? ^ 



IS NEXT CaAR.\CTER A " , " ? 



u u 



ARGUMENT-LIST ERROR 



REPL-\CE COMMA IN STRINC 
BUFFER WITH "(" 



COMPILE 
66100 (SB! = BO) 
66200 l'SB2 = BO) 



TAG SPECIAL FUNCTION 
"INPUTS" (FOR DECODE) OR 
"OUTPTS" (FOR ENCCDF./ 



' M " COMPILE 



RJ TO FUNCTION 



CLEAR REGISTER TAGS 



NORMALIZE STATEMENT, 
DELETING "ENCODE (c.n" 
FROM STRING 



TRANSLATE INDIVIDUAL 
QUANTITIES 



READ STRING BUFFER ENTRY 
IS ENTRY A ^(" ? 



COMPILE RESTORE 

INSTRUCTIONS 

COMPILE ARRAY ADDRESS 



IS ENTRY AN ARRAY OR 
VARIABLE TAG 1 



g » {C0MPILE 6I10fl (SBl " K)" 
YES 



— f iS ENTRY A PROGRAM TAG ? | 
NO YES 



•COMPILE ARGUMENT ADDRESS 



f COMPILE 63U0 (SBl -» Xj) | 



READ STRING BUFFER ENTRY ^' 
IS ENTRY A ")" 7 



ARGUMENT- LI ST ERROR 



-C ^ COMi'H.; ':6170 (Sill - : ' , "~1 



COMPILE 65200 (SE2 ■-= Oi 
COMPILE RJ TO FUNCTION 



CLEAR REGISTER TAGS 
SET ENCODE/DECODE INDIOVTOR 



PROCESS LIST 



EXIT ] 



2: 



I Oa • CONVERT OCTAL CCWSTANT "^ 



CLEAR ASSEMBLY REGISTER 
INITIALIZE DIGIT COUNT 



READ STRING BUFFER ENTRY 
END OF STATEMENT REACHED 



d 



IS ENTRY A SEPARATOR T ) » f EXIT { 

NO 



HAS A FULL WORD BEEN 
PROCESSED ? 



CONVERT DIGIT TO OCTAL 
WAS TOERE AN 8 OR 9 7 



D 



-t{ BOOLEAN-CONSTANT ERROR 



I WAS A LETTER F O UND ? ! .^„ H " ^^^^^ * "B" ? | -. 



PACK OCTAL DIGIT IN 

ASSEMBLY REGISTER 

MORE THAN JO DIGITS FOUND 



~1 

OUND? I 



YES 



I BOOLEAN CONSTANT ERROR "| 



ADVANCE STRING BUFFER 
ADDRESS PAST LETTER 



rBorH - 



D 



o 
o 



(~ PPT - PROCESS DO TARl.ES H 



[ixn>- 



I 



IS STATEMENT WJ>tBKR IN THE 

nr m;KBF,R table ? 



15 Cfl'iTIWIE INDICATOR SET? 



ADVANCE PROGRAM TAG 



IS THIS A PSUEDO- 
STATEMF.NT NUMBER 



IS CURRENT ,niMP IND. SET? 



SENSE CURRENT JUMP INSTR. 
IS IT AN 02 niMP ? 



— rH 

YES 



\n"\Nc'h priv:ram tag 

SI I n.. ICAI IF INDICATOR 

Egi'M ril PRflGRAM TAC 



ENTER PROGRAM TAG IN 
INSTRUCTION REGISTER AND 
PR£M<\NENT TAG TABLE 



ENTER STATEMENT TAG FROM 
CURRENT JUMP IN TEMPOR.ARY 
TAG TABLE 



CLEAR CURRErrr JUMP 
INDICATOR 



|EXITt -»- 



IS STATEMENT NUMBER IN THE 
00 NUMBER TABLE 7 



SAVE CORRESPONDING ENTRY 
FROM m PARAMETER TABLE 



CLEAR THIS ENTRY IN THE 
Dgt NUMBER TABLE 



CLEAR CONTl.fUE INDICATOR 



EXTRACT PROGRAM TAG FROM 
INDEX STORE INSTRUCTION 
AND SAVE 



COMPARE LOCATION OF INDEX 
STORE WITH INSTRUCTICN 
START FOR THIS STATEMENT 



---|s THIS A 1-STATEMENT DO ? | 



SET DO TERMINATION 
PROCESSING INDICATOR 



WAS INDEX STORE AN SA6= B. 
INSTRUCTION ? 



USE B REGISTER NO. TO FORM 
PROGRAM TAG (INDEX ADDR. 
•WAS A SUBROUTINE ARGUMENT) 



SET BYPASS INTER- REGISTER 

TRANSFER INDICATOR 

GET VARIABLE TAG FOR INDEX 



COMPILE READ INSTRUCTIONS 

(INDEX FETCH) 

SAVE REGISTER ASSIGNMENT 



EXTRACT INCREMENT PAR/iMETER 
FROM DJ) PARAMETER ENTRY 
IS PARAMETER A CONSTANT ? 



ANALYZE LOOP CONDITIONS 
COMPILE READ INSTRUCTIONS 
(INCREMENT FETCH) 



SAVE REGISTER ASSICNM^T 
EXTRACT LIMIT PARAMETfiR 
FROM DJ) PARAMETER ENTRY 



IS LIMIT PARAMETER A 
CONSTANT ? 



ANALYZE LOOP CONDITIONS 
COMPILE READ INSTRUCTSIONS 
(LIMIT FETCH) 



IS INCREMENT FAR,\.METER 
A CONSTANT ? 



> 

YES 



c.^^!^^LP 'n(-\ c.i 
(SX6 ^ X, * K) 



COMPILE 366XY' 
(1X6 = Xi + Xj) 



IS LIMIT PARAMETER A 
CONSTANT ? 



COMPILE 377Z6 
(1X7 = Xi - X6) 

SELECT PL JUMP FOR TEST 



COMPILE 7276 CON 

(SX7 =- X(-. - K) 

SEl EC! Hi; JUMP rfM, 1 I- 



I IS THIS A I-STATEMENT DP ? "f - 



SCAN INSTRUCTION GROUP FOR 
THIS STATEMENT 



IS THE INDEX STORE IN THIS 
INSTRUCTION GROUP ? 



TAG FIRST INSTRUCTION IN 
THIS GROUP WITH A PROGRAM 
TAG 



COMPILE PL or NG TAG 
(TAG = PROGRAM TAG FOR 
INDEX STORE) 



IS THIS A 1-STATEMENT 



lilh 



ANALYZE I-STATEMENT 



&*- 



(KETUKN FOR NESTED DO) 



I 



yf«-/ 



i PSN . PROCESS stateme:.t number) 



I Tc T»Tc . ,^L,. I I RETURN FOR NEXT ASSEMBLY I 
I IS THIS A FORTRAN PROGRAM?! |J STATEMENT 

YES *'° I (MAA SUBROUTINE) \ 

^ 



IS DO TERMI!l\T10N 
INDICATOR SET ? 




RESTORE STATEMENT NUMBER 
PROCESS DO TABLES 



1 DOES STATEMENT NUMBER = 



PSM - PROCESS STATEMENT NUMBER 
(CONTINUE STATEMENT ENTRY) 



IS THIS NUMBER IN THE 
STATEMENT NUMBER TABLE 



IE U 
LE ? j" 



Idupliclte number found ? 



NO 




DUPLICATE STATEMENT NUMBER 
ERROR 



ENTER STATEMENT TAG IN 
TEMPORARY TAG TABLE 
GET CURRENT PROGRAM TAG 



X 



ENTER CURRENT PROGRAM TAG 
IN STATEMENT TAG TABLE AND 
PERMANENT TAG TABLE 



CURRENT JUMP INDICATOR SET?I 



s 



3 



YES 



STORE TEMPORARY TAG FOR 
CURRENT JUMP IN TtMPOlARY 
TAG TABLE 






STORE NEXT PBOORAH TAG 
IN PERMANENT TAG TABLE 



I CLEAR REGISTER TAGS | 



PSV . PROCESS STATEMCN-r NUMBER I 
(CON'TINVE STATEMENT ENTRY) 



ENTER STATEMENT NUMBER IN 
STATEMENT NUMBER TABLE 



STORE CURRENT PROGRAM 
IN STATEMENT TAG TABLE 



TAG I 
I 



PROCESS DO TABLES 



SET INSTRUCTION GROUP END 
INDICATOR TO ADORES* OT 
UST INSTRUCTION CCHPILEO 



Wf • rooCESS STATEMENT NUMBER I 
ITOJ 



(KON-PCECUTABLE STAXIMBNT ENWYJ 



i DECREMENT PROGRAM TAG | 



(print INSTRUCTION CROUP | 



RETURN rOR NEXT STATEMENT 
^) IN RUN, PAGE A- J 



IS 
I 



PIN - If ■ t ,. KjR".\T NVM3ER/TAG 



|IDE^^ln^ statekest nx-mrf.r ~} -j — 



I 



ASSEMBLE NiJMBER 
UAS A NIFMRER FOUKD 



ASSEMBLE VARIABLE 



IS VARIABLE AN ENTRY IN 
THE TEMPORARY TAG TABLE? 



COMPILE 7170K {SX7 = K) 
INDICATE NAMELIST 



I EXIT 



TRANSUTE VARIABLE 

DOES IT RAVE AN ARR.A,Y OR 

VARIABLE TAG ? 



lis VARIABLE AN ARRAY NAME 



"t^ irOMPlLE enOK (SB3 ^ K) I 



IS THIS A FORMAT NL'MBER 
BEING PROCESSED ? 



COMPILE 6133(-1) 
(SB3 = B3 - 1) 



-« H EXIT I 



FORMAT ERROR 



DOES VARIABLE HAVE A 
PROGR.AM TAG ? 



FORM\T ERKi.'.K 



COMPILE ARGUMENT ADDRESS | 



COMPILE 613QK (SB3 = K) | 



u 



I 

I—' 

c» 



RIT . PROCESS READ STATEMENT ~| 



SELECT FILE NA>IE "INPUT" 



SELECT INPUTC SUBRO'JTINE 
FOR CODED READ 



ASSEMBLE LETTERS 

WERE AMY LETTERS FOUND ? 



I ARE LETTERS "INPU" ? "|- 



ASSEMBLE NEXT 5 LETTERS 
ARE LETTERS "TTAPE" ? 



|aRE LETTERS "TAPE" ? ^ **C^ 



^ 



PROCESS FORM-M NUMBER/TAG B l 



1 ^^'D Qf" STATEMENT REACHED ?1 



IS NEXT CHARACTER A " , ■ ? ^ - 



FORM.'^T ERROR 



^ 



o 



PROCESS LIST 



j PROCESS STATEMENT Nl^MBER ~} 



ASSEMBLE VARIABLE 

WAS A NAME OR NUMBER (LOG- 

ICAL UNIT) ASSEMBLED ? 



INSERT LOGICAL UNIT IN 

"TAPE « 

FOR FILE NAME 



ASSEMBLE VARIABLE 



END OF STATEMENT REACHED ? 



1 1 



\ IS NEXT CHARACTER A "," ? 1 



FORM\T ERROR 



WAS A NAME OR NUMBER (LOG- 
ICAL UNIT) ASSEMBLED 7 



(d) > 4 IS NEXT CR\R.\CTER A ")" ? | > 



INSERT LOGICAL UNIT IN 

"TAPE " 

FOR FILi NAME 



FORMAT ERROR 



SELECT INPUTS SUBROUTINE 
FOR BINARY READ 



IS NEXT CtL\R\CT 



ASSEMBLE VARIABLE 
IS NEXT CHARACTER A "," ? 



KR A "(" ? 1 ►/b) 



WAS A NAME OR NUMBER aOG- 
ICAL UNIT) ASSEMBLED ? 



INSERT LOGICAL UNIT IN 

"TAPE 

FOR FILE NAME 



|PROCESS FORMAT NVMBKR/TAl, | 



nn 



EXT CHARACTER A ■• ) ' 



J — Ki) 



NO 



FORH-\T ERROR 



VO 



SDO - SENSE D0 STATEMEMT 



ASSEMBLE NEXT 2 LETTERS 
ARE LETTERS "D0" ? 



■* { EXIT I 



ASSEMBLE NUMBER 

WAS A NUMBER FOUND ? 



-t5{TxiT] 



ASSEMBLE VARIABLE 

WAS AN ALPIUNUMERIC FIELD 

ASSEMBLED ? 




[ IS NEXT CHARACTER 'Wn ^ I 1^ ^XIT | 



IS VARUBLE IN THE 
VARIABLE NAME TABLE 



[ exitK " 



EXAMINE VARIABLE TAG 
IS MODE OF VARIABLE 
FIXED POINT ? 



DOES VARIABLE NA.ME BEGIN 
WITH 1. J. K, L. M, N ? 



N0R>1ALIZE STATEMENT 
CLEAR CURRENT JUMP 
INDICATOR 



-»4 EXIT I 



W.\S CURRENT JUMP 
INDICATOR SET ? 



CLEAR CONTINUE INDICATOR 
WAS CONTINUE INDICATOR 
SET? 



I CLEAR INSTRUCTION R£GISTEr| 



ADVAJJCE PROGRAM TAG 
WAS "DO" STATEMENT 
HUMBERED ? 



ENTER PROGRAM TAG IN 
INSTRUCTION REGISTER 



TRANSLATE INDIVIDUAL 
QUANTITIES 



COMPILE DJ) INITUL 
INSTRUCTIONS 



I PROCESS STATEMENT NUMBER j 



ro 
o 



i SFO - SENSE FOmuiA STATEMENT ) 



ASSEMBLE ViUlIABLE 
IS NEXT CHARACTER 



IS Min,TIPLE STATEMENT 
INDICATOR SET 



CmHH jlS NEXT CHARACTER "(" ? | 



TATEMENT L 

■L I 



RESET $ IN STRING BireTER 
CLEAR MULTIPLE STATEMENT 
INDICATOR 



> 



CNF . COMPILE NORMAL FORMULA | 



jlS VARIABLE "DATA" ? \- 



|lS VARIABLE "FORMAT" 



EZJ — KD 



READ STRING BUFFER ENTRY 
END OF STATEMENT REACHED ? 



ASSEMBLE NEXT VARIABLE I ^^ 
IS FOLLOVnNG CHARACTER "("? 



I IS ENTRY ")" ? I- 



3 



M FOLLOWING CHARACTER "~"? | fc> j EXIT | 



a READ STRING BUFFER ENTRY i 
IS ENTRY A SPACE 7 I 



[ IS ENTRY " = M 7 }_ 



IS MULTIPLE STATEMENT 
INDICATOR SET ? 



D 



RESET $ IN STRING BUFFER 
CLEAR MULTIPLE STATEMENT 
INDICATOR 



IS VARIABLE IN THE VARUBLeI 
NAME TABLE ? 



irubleI 



IS CORRESPONDING TAG 
THE VARIABLE TAG TABLE 
THE ARRAY TAG TABLE 



FROM I 

^E IN I— * l_kgt - CraiPILE NORMAL FORMULA~ 1 

I I YES "^ -• 



CFF - COMPILE FUNCTION DEFINITIOnI 



i 



LOCATE END OF STATEMENT IN 
THE STRING BUFFER 







SEARCH STATEMENT BACKWARDS 
IS FIRST NON-BLANK CHAR- 
ACTER FOUND ")" ? 



IS FIRST NON-BLANK 
ACTER FOUND 



1 



ILANK CHAR- I , 1 , 

- " ? H EXIT I 

' VBS 



V) 

a 



i TAB - NOIOImTFe: S T^Tl'"'"■.T '] 



I CLEAR r^REXTHr:5£S COl'NT ) 



READ CHARACTER FROM THE 
STRING BUFFER 



■^3 



hs CHARACTER A SPACE 

YES 



END OF STATEMErrr P.F.ACHF.O 



I IS CH.\RACTER A SEPARATOR ? '\ - 



YES 



IS MULTIPLE STATKMKNT 
INDICVTOR SET ? 



1 ^S CR\RACTER A*?'? "| 



REPUCE $ IN STRING BUFFER 
WITH AN END STATEMENT 
INDICATOR (ZERO WORD) 



SET MULTIPLE STATEMENT 
INDICATOR TO ADDRESS OF 
STATEMENT END 



_^ COPY SEPARATOR R\CK INTO 
„,. THE STRING BUFFER 



IS CRXR^CTER A LETTER ? 



ASSEMBLE VARIABLE 

WRITE VARIABLE IK BUFFER 

(PACKED IN A SINGLE WORD) 



I 



READ CHARACTER FROM THE 
STRING BUFFER 



-0 






END OF STATEMENT REACHED ? 



lis CHARACTER A SPACE 7 | 

I VF 



(//■* hs CH.iiR.ACTER A SEPARATOR ? I 



NEXT PAGE 



is CHARACTER A NUMBER 



ASSEMBLE VARIABLE 

is NEXT CHARACTER A " . " ? 



SEARCH LOGICAL SEPARATOR 
TABLE: IS VARIABLE A 
LOGICAL SEPARATOR ? 



I IS VARIABLE "T" OR "F" ? [ "K^ 



I IS VARUBLE "0", "A", "N" ?"[ - 



IS CHARACTER A 



'(■■ ? ~~\ r- |lS CR-\R.\CTER A ■■)" 



(increment PARENTHESES C01'NT| [DECREMENT PARENTHESES COUNt) 
ro-* \ IS CHARACTER A ".'■ ? \ < * 



FORMAT ERROR 



* ^IS SEPARATOR "TRIT. ■?-TAlJK^ ''"09 





NO 


YES 


STORE SEPARATOR CODE IN 
STRING BUFFER 










VKS THIS A REUTIONAL 
OPERATOR ? 




NO 




YES 




INCREMENT LOGICAL RELATION 
COUNT 





K5 



1 



STORE CORRESPONDING FLAG 
IN STRING BUFFER 



PARENTHESES COUNT = ? 



EXIT I 



CD 



EMi ;F STATEMENT R: 



PARENTHESES ERROR 



I 

to 
ro 



FROM PREVIOUS PAGE 



ASSEMBLE NUMBER 
WRITE NUMBER E.\CK IN 
STRING BUFFER 



IS NEXT CHARACTER 
"H", "L", OR "R" ? 



-K5 



SET JUSTIFY INDICATOR 
CONVERT NUMBER TO DECIM\L 
INTEGER 



WAS A NON-ZERO NUMBER 
CONVERTED ? 



---c 



FORMAT ERROR 



IS DATA STATEMENT 
INDICATOR SET ? 



H»{ CLEAR ASSEMBLY REGISTER | 



READ CHARACTER FROM THE 

STRING BUFFER 

END OF STATEMENT REACHED ? 



FORMAT ERROR 



YES 



NO 



PACK CHARACTER IN ASSEMBLY 

REGISTER 

;0 CHARACTERS PACKED ? 



YES 



WRITE PACKED WORD BACK IN 
STRING BUFFER 
WRITE "," IN BUFFER 



HAVE THE SPECIFIED NUMBER 
OF CHARACTERS BEEN 
PROCESSED ? 



YES 



I WAS A FULL WORD PACKED ? 
NO 



-><D 



HAVE THE SPECIFIED NUMBER 
OF CHARACTERS BEEN 
PROCESSED ? 



YES 



K 



WAS DESCRinOR AN "R" ? 



RIGHT JUSTIFY CHARACTERS 



STORE CONSTANT AND END 
FLAG (ZERO WORD) IN THE 
CONSTANT VALUE TABLE 



GENERATE CONSTANT TAG 
STORE CONSTANT TAG IN 
CONSTANT TAG TABLE 



I 



1 — ** 






I- t. 




■"• 1 


[ WAS DESCRIPTOR AN "H" ? 


FILL REMAINDER OF WORD 
WITH BLANKS (SSg) 


1 ** 

YES 






NO 












ZERO FILL REMAINDER OF 
WORD 
















WRITE PACKED WORD IN THE 
STRING BUFFER 



















WAS DESCRIPTOR AN "H" ? 



WAS A FULL WORD PAC KED ? I S-ZT^ 

~T ' YES ^Vjy 



I WAS DESCRIPTOR AN "R" ? | - 



RIGHT JUSTIFY CHARACTERS 
SET RIGHTMOST 6 BITS TO 77 
(LITERAL END INDICATOR) 



G>- 



SET LEFTMOST 6 BITS TO 77 
(LITERAL END INDICATOR) 



GENERATE CONSTANT TAG 
STORE TAG IN THE STRING 
BUFFER 



STORE CONSTANT TAG IN 
CONSTANT TAG TABLE 



CLEAR ASSEMBLY REGISTER | 



READ CHARACTER FROM THE 

STRIKG BUFFER 

END or STATEMENT REACHED ? 



FORMAT ERROR 



PACK CHARACTER IN ASSEMBLY 

REGISTER 

10 CmRACTERS PACKED ? 



HAVE THE SPECIFIED NUMBER 
OF CHARACTERS BEEN 
PROCESSED ? 



STORE ASSEMBLED WORD IN 
CONSTANT VALUE TABLE 



HAVE THE SPECIFIED NUMBER 
OF CHARACTERS BEEN 
PROCESSED ? 



\ GENERATE CONSTANT TAG \ 



i WAS DESCRIPTOR AN -H" ? f - 



YES 



FILL REMAINDER OF WORD 
WITM BLANKS (SSg) 



ZERO FILL REMAINDER OF 
WORD 






[ TIQ - TR.\NSUTF. INDI'vlDL'AL QTYS { 



SAVE COLUMN I - POSSIBLE 
D, I, OR B INDICATOR FOR 
FORTR.AN T: 



READ STRING BUFFER ENTRY 
END OF STATEMENT REACHED 



■o 



- H exit! 



IS ENTRY A SEPAR.\70R 



IS SEPAR.ATOR A " . ' 



NO YES 



IS SEPARATOR A ")" ? 



YES 



RESTORE COLL-MN 1 
INHIBIT FUNCTION 
ARGUMENT USE 



IS THIS ENTRY IN THE 
VARIABLE NIlME TABLE ? 



SAVE VARIABLE TAG 
H\S AN INDEX REGISTER 
BEEN ASSIGNED ? 



INCREMENT ARGUMENT- 
REFERENCE COUNT 



IS THIS TAG IN THE 
VRR-iiY T\G TABLE ? 



URITE THIS ta;; in the 

STRING BUFFER 



INCRFMENT array REFERENCE 

cn;'NT 

BUNK U'T COL'.-MN I 



I IS THE NEXT ENTRY A ■(" ? ") ~ 



TRANSLATE VARUBLE 
HAS AN INDEX REGISTER 
BEEN ASSIGNED 7 



INCREMENT ARGUMENT- 
REFERENCE COUNT 



© 



TAG SPECUL FUNCTION 
WRITE TAG IN STRING 
BUFFER 



INCREMENT SUBROUTINE- 
REFERENCE COUNT 



1 WAS TOIS A LIBK.'.RY TAG ? | 



ALLOW FUNCTION ARCL'MENT 
USE 



-KD 



- ^ WAS THIS A PROGRAM TAG 7 \ 



WRITE TAG IN STRING BUFFER 
BLANK .OUT COLLTIN 1 



INCREMENT SUBROUTINE- 
REFERENCE COL'NT 



I 






I TNK - TR.\NSUTE CONSTANT | 



ro 



READ COLUMN 1 

IS CH.\KACTER A -B" ? 



READ NEXT 2 ENTRIES FROM 
STRING BL'FFER (LOOK AHEAD) 



IS FIRiT ENTRY \N "S" 



i '=> ^ECL^ND ENTRY \ ■)" ? "^ 



IS SECOND ENTRY A " . '' ? j" 



READ CO^!STANT TO BE 
TR.VNSLATED FROM STRING 
BUFFER 



IciJN 



NSTANT PRECEDED BY 



E 



A'STANT PRECEDED BY 



IDENTIFY STATEMENT NUMBER 
DID STATEMENT NUMBER HAVE 
A PROGR\M TAG ? 



ENTER PROGRAM TAG IN THE 
PERKANENT TAG TABLE 



GENERATE STATEMENT TAG 
ENTER STATEMENT TAG IN 
TEMPORARY TAG TABLE 



CONVERT OCTAL CONSTANT 
WAS RESULT -0 7 



I 



CONVERT DECIbUL NUMBER 
WAS MODE OF RESULT 
DOUBLE PRECISION ? 



ENTER BOTH WORDS OF DP 
NUMBER IN THE CONSTANT 
VALUE TABLE 



GENERATE CONSTANT TAG FOR 
EACH WORD AND STORE IN THE 
CONSTANT TAG TABLE 



ENTER VALUE IN CONSTANT 
VALUE TABLE 



GENERATE CONSTANT TAG 
STORE CONSTANT TAG IN 
CONSTANT TAG TABLE 



WRITE TAG/CONSTANT :.m 
STRING BUFFER (REPLACE 
TRANSLATED CONSTANT) 



BUFFER COMPRESSION UQUIR- 
ED? (I.e., DID CONSTANT 
OCCUPY MORE THAN I WORfi?} 



VC& 



SHIFT BUFFER cowiikrrs 

DOWN UNTIL END STATEMENT 
INDICATOR IS REACHED 



-* i g»iT| 



-0 



•<5 



WAS RESULT A -0 



IS COEFFICIENT ZERO ? 



IS MODE OF RESULT 
FLOATING POINT 7 



SET RESULT TO ZERO 

WAS CONSTANT PRECEDED BY 

AN " - » ? 



READ NEXT STRING BUFFER 

ENTRY 

END OF STATEMENT REACHED 7 



I SET CONSTANT INDICATOR 
' 1 



■o 



LXVr.NE ENTRIES •rf'.ilC- 
•RtCEDE CCNST'vNT 



IS CH\R.VCTER FRECEDTN- 
CONSTANT IN Tl-RN PRECt-.Dl.D 
BY A "**••. ••(", -v. ■■ . 

•■,■• OR LC\".iC\L OPER.\T0R ? 



YES 



IS CHAR.\CTF.R A •• ^ 



DELETE ^ FROM STRIN.' 



H 



13 CHAR,\CTER A " 



IS CONSTANT FOLLOWED BY 



DELETE MINUS SIGN FROM 

STRING 

COHPLEMENT CONSTANT 



IS MODE OF CONSTANT 
FLOATING POIHT ? 



IS CONSTANT ZERO ? { ^ 

YES NO 



I WAS THERE A "B" IN COL. 1?| ' 



I COMPLEMENT COWSTANT ~\ 



I 



® 



I 
to 



FROM PREVIOl" 
C, 



1 



WAS CONSTAST IS THE R.A.NCE 
. 2l6 TO -i 2l6 . I : 



I SET CONST.ANT INDICATOR 1 



WAS CONSTANT ZERO ? 



IS THIS A FLCATING POINT 
CONSTANT ? 



-b- 



|WAS THERE A "B" IN COt,. I ? | ^'C^ 



ON 

PREVia'S 

PAGE 



SET FLttATING POINT MODE 
INDICATOR 



IS ENTRY PRECEDING 
CONSTANT IN TURN PRECEDED 
BY A SEPARATOR ? 



o 



FROM 

PREVIOUS 

PAGE 



IS ENTRY PRECEDING 
CONSTANT A "(" ? 



IS ENTRY FOLLOWING 
CONSTANT A ",- ? 



-KD 



IS MODE OF CONSTANT 
FLOATING POINT ? 



FORMAT ERROR 



SET COMPLEX MODE INDICATOR 
DELETE "(" FROM STRING 



I 



ON PREVIOUS PAGE 



IS ENTRY PRECEDING CONSTANT 
IN U'RN PRECEDED' BY A 
COMPLFJt CONSTANT ? 



IS CONSTANT PRECEDED 
BY A "," ? 



IS "," IN TURN PRECEDED 
BY A CONSTANT TAG 7 



IS CONSTANT FOLLOWED BY 
A ")M 1 



IS MODE OF CONSTANT 
FLOATING POINT ? 



ENTER CONSTANT IN THE 
CONSTANT VALUE TABLE 



GENERATE CONSTANT TAG 
STORE TAG IN THE CONSTANT 
TAG TAHLE 



DELETE ",", ")". WD 
C0NSTA.1T FROM THE STRING 



^ 



ON PREVIOUS PAGE 



F0R>1AT ERROR 



i 



COl'LD THIS CONSTANT BE 
MISINTERPRETED AS PART OF 
,\ FORHAT STATEMENT ? 



IS THIS CONSTANT ALREADY 
IN THE CONSTANT VALUE 
TABLE ? 



ON PREVIOUS PACE 



— t<h 

NO V^ 



ON 

PRrVlOL'S 

PAGE 






I TRV ■ T R.\NS U\TE VARUBLE | 



READ STRING BUFFER ENTRY 
IS ENTRY A "." ? 



DOES ENTRY BEGIN WITH A 
LETTER ? 



TRANSLATE CONSTANT ^ i&- ^ EXXTI 



IS THIS VARIABLE IN THE 
ARGUMENT NAME TABLE ? 



STORE CORRESPONDING TAG 
-tH FROM INDEX TAG TABLE IN 
STRING BUFFER 



IS FUNCTION ARGUMENT 
USE ALLOWED ? 



IS THIS VARL\BLE IN THE 
VARIABLE NAME TABLE ? 



IS THIS VARIABLE IN" THE 
SUBROUTINE N.\ME TABLE ? 



STORE CORRESPONDING TAG 
FROM SUBROUTINE TAG TABLE 
IN STRING BUFFER 



j IS NEXT ENTR Y A ")" 



1 IS NEXT ENTRY A " /' ? | 



WAS THIS VARIABLE PRECEDED r^ 
BY A •■(-, "=", OR ","? 



-t* { EXIT I 



IS THIS VARIABLE IN THE 
VARIABLE N.AME TABLE ? 



STORE CORRESPONDING TAG 
FROM VARIABLE TAG TABLE 
IN STRING BUFFER 



I EXIT] 



- H EXIT I 



ARE THERE LESS THAN 7 
CR\R\CTERS IN THIS ENTRY ? 



IS FIRST CiURXCTER A <'f 



ARE THE NEXT 6 CHARACTERS 
DIGITS ? 



DELETE "0" 

LEFT JUSTIFY DIGITS 



WRITE "B" IN COLUMN I 
WRITE NUMBER R\CK IN 
THE STRING BUFFER 



TR-\NSLATE CONSTANT 
STORE TAG/CONSTANT VALUE 
IN STRING BUFFER 



[ EXIT I 



ENTER VARIABLE IN THE 
VARIABLE NAME TABLE 



SET COMPLEX MODE INDICATOR 

RE-AD COLUMN 1 

IS C1L\R\CTER AN "I" ? 



SET DP MODE 1NDIG\T0S 
IS C10\R/\CTER A "D" ? 



ADVANCE VARIABLE TAG HY 2 



IS FIRST LETTER OF VARL^fiL 
I, J, K, L. M, OR N ? 



I SET INTEGER MODE INDICM.) 



R J 



K 



SET FLa\TING MODE INDIGM'OKl 



ADVANCE VARIABLE TAG 



~Lj- 



SET MODE INDICATOR IN 
VARIABLE TAG 



ENTER TAG IN VARIABLE TAG 
TABLE AND IN THE STRING 
BUFFER 



I EXIT I 



/p-.e 



ro 



I TSF . XkG SPECIAL FWCTION j 



INCREMENT RETURN JUMP 
COUNT 



IS FUNCTION A TAG ? 



■^ 



EXPRESSION FOR>L\T ERROR 



IS FUNCTION IN THE 
FUNCTION NAME TABLE ? 



INCREMENT FUNCTION STATE- 
MENT REFERENCE COUNT 



- H EXIT 1 



IS FUNCTION IN THE 
SUBROUTINE NAME TABLE ? 



I IS IT THE FIRST ENTRY ? | f { EXIT | 



IS A SUBPROGRAM BEING 
COMPILED ? 



VARIABLE NAME CONFLICT 
ERROR 



IS FUNCTION IN THE 
VARIABLE NAME TABLE ? 



IS CORR£SPONDING ENTRY IN 
THE VARIABLE TAG TABLE A 
VARIABLE TAG ? 



VARIABLE NAME CONFLICT 
ERROR 



ENTER FUNCTION IN THE 
SUBROUTINE NAME TABLE 



GENERATE LIBRARY TAG, 
INSERT MODE, AND ENTER TAG 
IN SUBROUTINE TAG TABLE 



■© 



RESERVE AN ENTRY IN THE 
SUBROUTINE PARAMETER TABLE 



IS FUNCTION A FORTRAN 11 
FUNCTION NAME 1 



GET EQUIVALENT FORTRAN TV 
FUNCTION NAME 



IS FUNCTION A FORTRAN IV 
FUNCTION NAME ? 



|lS THIS AN IN-LINE FUNCTIONTf ^a- 

YES 



DECREASE SUBROUTINE 

REFERENCE COUNT 

DECREASE RETURN JUMP COUNT 



-t» j EXIT~^ 



IS THIS A COMPLEX FUNCTION? 



I NO r~ 



ENTER FUNCTION IN SUB- 
ROUTINE NAME TABLE 
SET COMPLEX MODE INDICATOR 



S FUNCTION IN THE SUB- 
ROUTINE N^ME TABLE ? 



&» 


IS FUNCTION A DOUBLE 
PRECISION FUNCTION NVME ? 




NO 




YES 






IS FUNCTION IN THE SUB- 
ROUTINE NAME TABLE ? 






YES 






NO 






ENTER FUNCTION IN THE 
SUBROUTINE NAME TABLE 
SET DP MODE INDICATOR 





■ H EXIT ] 



I 



IS THIS A FORTRAN II 
PROGRAM ? 



IS IT THE FIRST ENTRY ? I 

' NO 



ENTER FUNCTION IN THE 
SUBROUTINE N^ME TABLE 



SET INTEGER HOPE INDICATOR 



SET COMPLEX MODE INDICATOR 



DOES NAME BEGIN WITH I, 
J, K, L, M, OR N ? 



ENTER NAME IN THE SUB- 
ROUTINE NAME TABLE 



ENTER NAME IN THE SUB- 
ROUTINE NAME TABLE ? 
NAME MORE THAN ^ LETTERS ? 



<J-[ 



DOES NAME END :n F 



J DOES COLUMN 1 CONTAIN "I^'Tp iJ {POES NAME BEGIN WITH X ? ""] 



<- isET DP MODE IND ICATOR }*« 1 DOES COLUMN 1 CONTAIN "D"? | | SET INTEGER MODE INDICATOR | 

' -M-i—^i^— iw-J YES I I ' 



SET FLQMING MODE INDICATOR 



© 






I "i^ ) 



00 



[ WOT - PROCESS WRITE STATEMEJ^T | 



ASSEMBLE NEXT 5 LETTERS 
WERE LETTERS FOUND ? 



:.':.' {~FORJi' 



FORMAT EPJIOR 



ARE LETTERS "EOL'TP" ? |— .- 



ARE LETTERS ''ETAPE" ? 



ASSEMBLE VARIABLE 



ARE LETTERS "E" 



-5=- FORM,\T ERROR 



IZI [ 



END OF STATEMENT REACHED ? 



. . I ■ ... I — — , I I 1 IS NEXT CHAR\CTER A " ,■' ? I 

IS NEXT C R-\R\CTER " ( " ? {a\ FORM\T ERROR "loJ no^ T^ 

, _ 1 jjQ I . ,- r^ "^ YES 



ASSEMBLE VARIABLE 



IS NEXT CH/\R.^CTER A ","? | eH IS NEXT CHAR.\CTER A '■ ) 



WAS A NAME OR NU>fBER CLOG- 
ICAL UNIT) ASSEMBLED ? 



WAS A NAME OR NUMBER (LOG- 
1C\L L-NIT) ASSEMBLED ? 



-t H FORM\ T ERROR M' 



INSERT LOGICAL UNIT IS 
"TAPE 



INSERT LOGICAL UNIT IN 
"TAPE 



PROCESS FORMAT NIIMBER/TAG 



> 



IS NEXT ci:ar\cter a 



•)■• ? I 1» 



select outputc subroltine 

FOR coded write 



select OUTFJTB SUBROUTINE 
FOR BIN.ARY WRITE 



( FORMAT ERROR | 



process list 



I PROCESS STATEMENT Nl'MBEK | 



-^ 



ASSEMBLE NEXT 5 LETTKKS 
ARE LETTERS "I'lrxrf ? 



I ASSEMBLE "'AMARLE | 



WAS A NAME OR NL'MBER ( IaX".- 
ICAL UNIT) ASSEMBLED ? 



C 



KOWf'»T £«R0« 



INSERT LO'JI&\L UNIT IN 
■■TAPE •■ 



I 



I W>ne - WRITE NEXT LINE | 



H »-^S BUFFER BEEN USED ? | H SET OUTPUT STATUS | Is=(a) 



HAS A FILE H\RK BEEN 
REQUESTED t 






IS BUFFER BUSY ? 



■o 



!f, 1 IS BUFFER FULL ? D*^ V F ^SSUE RECALL 

NO YES 



HAS END OF RECORD BEEN 
REACHED ? 



SET END OF RECORD 
INDICATOR 



I TRANSFER WORD TO BUFFER W - 



IS BUFFER SPLIT ? | 



K 



ISSUE RECALL 



fc'jr 



ADVANCE "IN" 



H\VE 12 WORDS BEEN 
TRANSFERRED ? 



IS END OF RECORD 
INDICATOR SET t 



IS BUFFER BUSY ? 



-ts \ MQUTi' .. "FIRST " ; 1 1~( SET "IN" = "FIRIifii \- 

' YES ' ' 



DOES BUFFER CONTAIN A 
FULL BLOCK OF DATA ? 



-KZ) 



SET OUTPUT STATUS 
CALL CIO 



NO 
-» { EXIT H >- 



I 



CHIPPEWA FORTRAN COMPILER - RUN 



APPENDIX B 



CONSTANTS, TEMPORARIES, AND NAI^IE TABLES 



December, 1965 



CHIPPEWA FORTRAN COMPILER - RUN 
CONSTANTS 

TAG CONSTANT 

CAA RAM 

CAB FORTRAN 

CAC CUMUIATOR 

CAD OVERFLOW 

CAE OTIENT 

CAF VALENCE 

CAG 3 NO (No Operation) Instructions 

CAH ASCENTF 

CAI NSION 

CAJ LEPRECISION 

CAK RNAL 

CAL TION 

GAM VIDECHECK 

CAN SENSELIGHT 

CAO SENSESWITC 

CAP ELIGHT 

CAQ OUTINE 

CAR DOUBLEPREC 

CAS 10 Blanks 

CAT 8 Blanks Right -Adjusted 

TAU FORMAT 

CAV lOOOOlOOOOOlOB (Used to Generate 

A-Z Tables) 

CAW 0P5 

CAX INPUTC 

CAY INPU 

CAZ TTAPE 

CCA TAPE 

CCB INPUTB 

CCC INPUT 

CCD PUNCH 

CCE OUTPUT 

CCF EOUTP 

CCG UTTAPE 
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TAG CONSTANT 

CGH ETAPE 

CGI OUTPUA 

GCJ OUTPUC 

GCK REWIND 

CGL BACKSP 

CGM ENDFIL 

CCN SPACE 

ceo IBAIEX 

CCP RBAIEX 

CCQ Zero Word 

CCR RTRANbbERR 

CCS ORSbblNbbb 

CCT Zero Word 

ecu ******* 

CCV MACHINE 

CCW 4 NO (No Operation) Instructions 

CCX ********** 

GCY ACGOEP "" 

CCZ IFENDF 
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CHIPPEWA FORTRAN COMPILER - RUN 
BINARY OUTPUT ARGUMENTS ^' 

TAG VALUE 

BOA Output File Name 

BOB Start of Buffer 

BOC Input Pointer 

BOD Output Pointer 

BOE End of Buffer 

CODED INPUT ARGUMENTS* 

TAG VALUE 

INA Input File Name 

INB Start of Buffer 

INC Input Pointer 

IND Output Pointer 

Tim? End of Buffer 

CODED OUTPUT ARGUMENTS* 

TAG VALUE 

OUA Output File Name 

OUB Start of Buffer 

OUC Input Pointer 

OUD Output Pointer 

OUE End of Buffer 



* All value initialized to zero 
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CHIPPE^^A FORTRAN COMPILER ■ RUN 
DBL - Table of Double Precision Function Names 

ENTRY FUNCTION NAMES (Left-Justified) 

DBLE 

1 DABS 

2 DSIGN 

3 DMOD 

4 DEXP 

5 DLOG 

6 DLOGIO 

7 DATAN 

10 DATAN2 

11 DSIN 

12 DCOS 

13 DSORT 

14 DTANH 
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CHIPPB^A FORTRAN COMPILER - RUN 
FIT - Table of FORTRAN II Function Names 

ENTRY FUNCTION NAMES 

MAXOF 

1 MAXIF 

2 MINOF 

3 MINIF 

4 XMAXOF 

5 XMAXIF 

6 XMINOF 

7 XMINIF 

10 ABSF 

11 XABSF 

12 XINTF 

13 XFIXF 

14 FLOATF 

15 INTE 

t r TvTi HT 

XD J\ Tin I I 

17 AIMAG 

20 CONJG 

21 DMAXl 

22 DMINl 

23 BBLE 

24 SNGL 

25 SIGN 

26 XSIGNF 

27 DIMF 

30 XDIMF 

31 MODF 

32 XMODF 

33 LOGF 

34 LOGlOF 

35 ATANF 

36 SINF 

37 COSF 
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ENTRY FUNCTION NAMES 

40 SQRTF 

41 TANF 

42 SINHF 

43 ASINF 

44 ACOSF 

45 ATAN2F 

46 SINGL 

47 ' IDINT 
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CHIPPEWA FORTRAN COMPILER - RUN 
FIV - Table of FORTRAN IV Function Names 

ENTRY FUNCTION NAME 

AMAXO 

1 AMAXl 

2 AMINO 

3 AMINl 

4 MAXO 

5 MAXl 

6 MIXO 

7 MIXl 

10 ABS 

11 lABS 

12 INT 

13 IFIX 

14 FLOAT 

15 AINT 

16 REAL 

17 AIMAF 

20 COMJF 

21 DBLE 

22 SNGL 

23 SIGN 

24 ISIFN 

25 DIM 

26 IDIM 

27 AMOD 

30 MOD 

31 CMPLK 

32 EXP 

33 ALOG 

34 ALOGIO 

35 ATAN 

36 SIN 

37 COS 



B-7 



^'TRY FUNCTION NAME 

^0 SQRT 

41 TAN 

^2 TANK 

^3 ASIN 

^4 ACOS 

45 ATAN2 

46 SNGL 

47 IDINT 

50 77B - Right- Justified 

51 CABS 

52 CEXP 

53 CLOF 

54 CSIN 

55 CCOS 

56 CSQRT 
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CHIPPEWA FORTRAN COMPILER - RUN 

HDD - Table of Program Title Types 

ENTRY NAME (Left- Justified) 

PROGRAM 

1 SEOIENT 

2 SUBROUT 

3 FUNCTIO 

4 END 

5 BLOCKDA 



HDF " Table of Variable Declaration Types 

ENTRY NAME (Left- Justified) CODE* 

LOGICAL 1 

1 INTEGER 2 

O -DT? AT A 

3 ISION 5 

4 COMPLEX 6 

*Type code appears in low-order 3 bits. 
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CHIPPMA FORTRAN COMPILER - RUN 



LGR - Table of Statement Letter Groups 



ENTRY 

1 
2 
3 
4 
5 
6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 

34 
35 



STATEMENT LETrER GROUP qeft-Jxistified) 



RETU 

ASSI 

IF 

IFQU 

IFDI 

IFAC 

SENS 

STOP 

PAUS 

GOTO 

CALL 

READ 

PUNC 

PRIN 

WRIT 

REffI 

ENDF 

BACK 

ENCO 

DECO 

BUFF 

END 

PROG 

SEGM 

SUBR 

FUNC 

CONT 

BLOC 

FREQ 

FORM 



*N 



> 



J 



CLASSED AS 
EXECUTABLE 
STATEMENTS 
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ENTRY STATEMENT LETTER GROUP (Left-Justified) 

36 NAME 

37 ENTR 

40 DOUB 

41 REAL 

42 INTE 

43 LOGI 

44 CCMP 

45 DIME 

46 EXTE 

47 EQUI 

50 DATA 

51 COMM 
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CHIPPEWA FORTRAN COMPILER - RUN 
LTB - Table of Logical Separators and Constants 

ENTRY (Left- Justified) 



WORD 



LT 

1 LE 

2 EQ 

3 NE 

4 GE 

5 GT 

6 NOT 

7 AND 

10 OR 

11 FALSE 

12 TRUE 
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CHIPPEWA FORTRAN COMPILER - RUN 
Map Headlines 

MPF OFUNCTIONb 

ASSIGNMENT 

S 
MPN OSTATEMENT 

bASSIGNMEN 

TS 
MPV OVARIABLEb 

ASSIGNMENT 

S 
MPK OSTARTbOFb 

CONSTANTSb 



MPT OSTARTbOFb 

TEMPORARIE 
• S 
MPI OSTARTbOFb 

INDIRECTS 

MPS OSUBROUTIN 

EbASSIGNME 

NTS 
MPR OBLOCKbASS 

IGNMENTS 
MPM OBUFFERbAS 

SIGNMENTSb 


MPL OLOCALbLEN 

GTH 
MPC OCCMIONbL 

ENGTH 
MPB OBUFFEBbLE 

NGTH 
MPP OUNUSEDbPR 

B-13 



OGRAMbSPAC 

E 
MPU OUMJSEDbCO 

MPILERbSPA 

CE 
MPD UNUSEDbJOB 

bSPACEbbbb 
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CHIPPMA FORTRM COMPILER - RUN 

MTA - Table of ASCENT Pseudo-Operations 

ENTRY NAME (Left-Justified) 

BSS 

1 - BSSZ 

2 EQU 

3 DPC 

4 BCD 

5 CON 



MTB - Table of Tag - Defining Operation Codes 

ENTRY NAME (Left-Justified) 

CON 

1 ABS 
o H'^L 

3 COM 

4 RES 

5 SUB 
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CHIPPEl<?A FORTRAN COMPILER - RUN 



RCD • 


■ TABLE 


OF 


OPERATIONAL- 


•REGISTER CODES 




ENTEY 


REGISTER TYPE 


REGISTER NUMBER 




(left- 


-iustified) 
7^«* 


(right- 

> 


•iustified) 





7^'^^ 


1 






C 







2 






C 




1 


3 






C 




2 


4 






C 




3 


5 






C 




4 


6 






c 




5 


7 






c 




6 


8 






c 




7 


9 






B 




1 


10 






B 




2 


11 






B 




3 


12 






B 




4 


13 






B 




5 


14 






B 




6 


15 






B 




7 


16 






D* 




0* 


17 






E* 




0* 


18 






F* 




0* 


19 






A 







20 






A 




1 


21 






A 




2 


22 






A 




3 


23 






A 




4 


24 






A 




5 


25 






A 




6 


26 






A 




7 



* Used in Machine processing only 
'V* Unused 
C = A registers, B = B registers, A = X registers 
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CHIPPEWA FORTRAN COMPILER - RUN 
REG - POWERS OF 10 - 10 



ENTRY VALUE 





1 


2° 
10^j_ = 10 

10^ K 100 

10^^> = 10^ 

10^^>' = 10^ 

io<^>: = 10^^ 

10<2>' = 10^^ 
10<^> = 10^^ 
10^^>' = 10^2^ 
10^^> = 10^^^ 


2 


3 


4 


5 


6 


7 


8 
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CHIPPEI-7A FORTRAN CC-IPILER - RUN 



Table Parameters 



Table Parameter Word Format: 




address of this 
parameter word 



36 



starting address 
of table 



18 



next entry 
address 



Table Parameter Ta^ 
TBI 
TBJ 
TBA 
TBB 
TBC 
TBD 

TBE 
TBF 
T3G 
TBH 
TBK 
TBL 

TBM 
TBN 

TBO 
TBP 

TBQ 
TBR 
TBX 
TBY 
TBZ 
TBS 



Table 

argument name 
argument tag 
constant value 
constant tag 
temporary tag 
permanent: tag 

FUNCTION NAME 

function tag 
do number 

DO TAG 

STATEMENT N^UMBER 
STATEMENT TAG 

VARIABLE NAME 
VARIABLE TAG 

COMON NAME 
ARRAY TAG 

ARRAY PARAMETERS 
TRANSLATED DATA STATEMENTS 
EQUIVALENCE SECONDARY NAME 
EQUIVALENCE PRIMARY NAME 
EQUIVALENCE BIAS 
SUBROUTINE NAME 



Tags Entered 



FUNCTION TAG 

CONSTANT TAG 

STATEMENT TAG 

PROGRAM TAG 
CONSTANT TAG 

FUNCTION TAG 

STATEMENT TAG 



PROGRAM TAG 
STATEMENT TAG 
CONSTANT TAG 



PROGRAM TAG 
VARIABLE TAG 
ARRAY TAG 



PROGRAM TAG 
ARRAY TAG 



Table Parameter Tag Table Tags Entered 

TBT SUBROUTINE TAG LIBRARY TAG 

TBU SUBROUTINE PARAMETERS 

TBV COMMON BLOCK NAME AND ADDRESS 

TBW PROGRAM FILE NAME AND ADDRESS 
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CHIPPEWA FORTRAN COMPILER - RUN 



Program Tags 



TAG 


FUNCTION 
LIBRARY TAG (L-TAG) 


TYPE 


TGL 


40xxxx 


TGA 


PROGRAM TAG 


(A-TAG) 


20xxxx 


TGI 


INDIRECT TAG 


(I-TAG) 


22xxxx 


TGT 


TEMPORARY TAG 


(T-TAG) 


24xxxx 


■TGK 


CONSTANT TAG 


(K-TAG) 


26xxxx 


TGF 


FUNCTION TAG 


(F-TAG) 


30xxxx 


TGW 


ARRAY TAG 


(W-TAG) 


32xxxx 


TGV 


VARIABLE TAG 


(V-TAG) 


34xxxx 


TGH 


STATEMENT TAG 


(H-TAG) 


36xxxx 
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CHIPPEWA FORTRM COMPILER - RUN 



TOI - 


TABLE FOR CHECK ON 


INSTRUCTIONS 50-77 


ENTRY 


FLAG 
C + G 


INSTRUCTION 





00 


1 


B + G 


01 


2 


A + G 


02 


3 


A + B 


03 


4 


C + B 


04 


5 


C - B 


05 


6 


B + B 


06 


7 


B - B 


07 



CHIPPEWA FORTRAN COMPILER - RUN 



TOP - TABLE OF IDENTIFYING CHARACTERS 



ENTRY 


FLAG 


INSTRUCTIONS 





A D = A + A 


32 


1 


A D = A - A 


33 


2 


A D = A * A 


42 


3 


A C = A * A 


15 


4 


A C = A + A 


16 


5 


A C = A - A 


17 


6 


A I = A + A 


36 


7 


A I = A - A 


37 


8 


A L = A * A 


11 


9 


A L = A + A 


12 


10 


A L = A - A 


13 


11 


A R = A + A 


34 


12 


A R = A - A 


35 


13 


A R = A * A 


41 


14 


A R = A / A 


45 


15 


A N = A + A 


30 


16 


A N = A - A 


31 


17 


A N = A * A 


40 


18 


A N = A / A 
B-21 
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CHIPPEWA FORTRAN COMPILER - RUN 
TOS - TABLE OF SPECIAL FORMATS 

ENTRY FLAG SHORT/LONG* REGISTER FLAG** INSTRUCTION 
. (left-justified) Cbit-lS) (bits 6-7) Crlght-.ljustified) 

1 26 

1 25 

1 24 

1 27 

1 2 57 

1 2 22 

1 2 23 

1 2 15 

1 2 16 

1 3 20 

1 3 21 

51 
10 54 

1 56 
1 53 

I 36 
10 37 
10 40 
10 44 
10 11 
10 12 

II 43 
1 2 47 
1 2 77 
1 2 67 
1 2 57 
1 2 14 
71 
61 

51 

1 54 
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A B = 


A . 


1 


A B = 


A + 


2 


A 3 = 


A - 


3 


A B , 


A . 


4 


A ( - 


B ) 


5 


A A ( 


B ) 


6 


A A ( 


- B ) 


7 


A - A 


. A 


8 


A - A 


A 


9 


A A ( G ) 


10 


A A ( 


- G ) 


11 


A ( 


G ) 


12 


A ( 


c ) 


13 


A ( 


B ) 


14 


A ( A ) 


15 


A A + A 


16 


A A 


- A 


17 


A A 


* A 


18 


A A 


Ik 


19 


A A 


. A 


20 


A A 


A 


21 


A 


* G 


22 


A 


* A 


23 


A 


- B 


24 


B 


- B 


25 


C 


- B 


26 


A 


- A 


27 


A G 


28 


: 


B G 


29 


1 


C G 


30 


1 


Z C 



ENTRY FLAG SHORT/LONG* REGISTER FLAG** INSTRUCTION 
(left-justified) Cbit-18) (bits 6-7) (right-.justified) 

310000CB 1 56 

32 A C 1 74 

33 A B 1 76 

34 0000BC 1 64 

35 B B 1 G 66 

36 OOOOCA 1 53 

37 B A 1 63 

38 0000AA 1 10 



* = long instruction 
1 = short instruction 

** = operation registers are contained in I, J and K constants 

1 = masking instruction 

2 = J and K values should be interchanged 

3 = shift instruction 
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CHIPPEWA RUN COMPILER - RUN 
VTA - TABLE OF REGISTER-ASSOCIATED TAGS 
TAG REGISTER ASSOCIATED 



VTA 


AO 


VTB 


Al 


VTC. 


A2 


VTD 


A3 


VTE 


A4 


VTJj' 


A5 


VTI 


Bl 


VTJ 


B2 


VTK 


B3 


VTL 


B4 


VTM 


B5 


VTN 


B6 


VTO 


B7 


VTY 


X6 


VIT 


XI 


VTU 


X2 


VTV 


X3 


VTW 


X4 


VTX 


X5 
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CHIPPH-7A FORTRAN COMPILBR - RUN 
TEMP QRARIB S /FLAGS 

TAG TEMPORARY 

ADM RUNNING RELATIVE ADDRESS 

ARF ARGUMENT-REFERENCE COUNT 

ARG ARGUMENT COUNT 

ARI ARRAY-REFERENCE COUNT 

BAI BASE ADDRESS FOR INDIRECTS 

BAK BASE ADDRESS FOR CONSTANTS 

BAT "BASE ADDRESS FOR TEMPORARIES 

BAV BASE ADDRESS FOR VARIABLES 

BIT BYPASS-INTERREGISTER-TRANSFER INDICATOR 

BLN BUFFER LENGTH FOR INPUT/OUTPUT 

CBA CURRENT COMMON-BLOCK RELATIVE-ADDRESS 

CJP CURRENT JUMP ADDRESS 

CSA COMMON STARTING ADDRESS 

CTG CURRENT PROGRAM TAG 

CTY COMMON-BLOCK-TYTE INDICATOR 

DFG DATA-STATEMENT INDICATOR 

DSN DO STATEMENT-NUMBER 

STI DO-TERMINATION INDICATOR 

FAG INHIBIT FUNCTION-ARGUMENT FLAG 

FLG PROGRAM COMMON FIELD-LENGTH 

FLF JOB ERROR FLAG 

FLG PROGRAM ERROR FLAG 

FLH SUBPROGRAM ERROR FLAG 

FLT PROGRAM TOTAL FIELD-LENGTH 

FSR FUNCTION-STATEMENT-REFERENCE COUNT 

FST LONG-FILE START 

FTY FUNCTION TYPE 

HIC HIGHEST-INDEX COUm 

ICA DISPLAY-CODED RUNNING-ADDRESS 

ICB ARGUMENT COUNT 

ICC RELATIVE SUBROUTINE START 

ICD SUBROUTINE REFERENCE TAG 
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TAG TEMPORARY 

ICE DOLLAR-SIGN POINTER 

ICF -I-TAG MAXIMUM 

ICG T-TAG MAXIMUM 

ICH DATA-REPEAT INDICATOR 

ICI INCOMPLETE-READBACK INDICATOR 

ICJ CCMPILER FIELD LENGTH 

ICK BLOCK-DATA INDICATOR 

ICL SIMPLE-LOGICAL-RELATION INDICATOR 

ICM INGCMPLETE-CCMPILE-MODE INDICATOR 

ICN TABLE LENGTH FOR INCCMPLETE-CCMPILE MODE 

ICO BASE ADDRESS FOR VARIABLES 

ICP BINARY-SUBROUTINE REGION END 

ICQ UPCOMING STATEMENT-NUMBER 

ICR UPCOMING CHARACTER-GROUP 

ICS ^ ERROR-HANDLER TAG 

ICT INTRAWORD INSTRUCTION COUNTER 

ICU INDEX TAG 

ICV UPCOMING-STATEMENT AND UNPACK INDICATOR 

ICW DO-TERMINATION-PROCESSING INDICATOR 

ICX BUILT-IN-FUNCTION POINTER 

ICY LINE LIMIT 

ICZ FREE TEMPORARY 

IGE INSTRUCTION-GROUP END 

IGS INSTRUCTION-GROUP START 

IGJC CURRENT INDEX ASSIGNMENT 

ILG LOGICAL-RELATION COUNT 

INF DUMP-PDUMP INDICATOR 

ING SUBSCRIPT COUNT 

INH FIRST CHARACTER OF STATEMENT WITH 0-TYPE CONSTANT 

INI MAP-ITEM COUNT 

INJ ASCENT MNEMONIC CODE OR REGISTER NUMBER 

INK CONTINUE INDICATOR 

INL LOGICAL-IF INDICATOR 

INM LOGICAL-RELATION INDICATOR 

INN MODE INDICATOR FOR READ 
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TAG TEMPORARY 

INO DOMINANT-MODE INDICATOR 

INP OUTPUT-FILE STATUS 

INQ NAME FOR DAYFILE 

INR H OR L OR R INDICATOR 

INS ARRAY-REFERENCE MODE 

INT FIRST INSTRUCTION ADDRESS 

INU 'UNUSED COMPILER SPACE 

INV SEGMENT INDICATOR 

INW CHAIN-MODE INDICATOR 

INX UPCOMING-STATEMENT INDICATOR 

INY COMPLETE-UNPACK INDICATOR 

INZ EXPRESSION-TERM COUNT 

IPS PROGRAM-SUBPROGRAM INDICATOR 

IWC NUMBER OF INSTRUCTION WORDS 

JPS CURRENT PROGRAM-SUBPROGRAM INDICATOR 

LBA LATEST BUFFER ADDRESS 

LMD ADDRESS OF LAST MULTIPLY OR DIVIDE INSTRUCTION 

LRC CURRENT LOGICAL RELATION 

MHI MACHINE- HEADING INDIGA.TOP^ 

MOD SUBPROGRAM MODE 

MOE PROGRAM MODE 

MOF SPECIAL COMPILE-MODE INDICATOR 

MSN MISSING-STATEMENT INDICATOR 

MST SYSTEM-ERROR INDICATOR 

PNM PROGRAM/SUBPROGRAM NAME 

RGC REGISTER-ASSIGNMENT COUNT 

RGX LONG-REGISTER ASSIGNMENT 

RJC RETURN- JUMP COUNT 

RNZ READ-ENTRY COUNTER 

SAR SINGLE-ARRAY-REFERENCE COUNT 

SBA ADDRESS OF BASE- SETTING INSTRUCTION 

SBP LATEST INDEX-DIMENSION 

SRI SUBROUTINE-REFERENCE COUNT 

STG COMPILE-MODE INDICATOR 

STN STATEMENT NUMBER 

TIP PROGRAM TYPE 
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TAG TEMPORARY 

TJP SUBPROGR^ TYPE 

TMA PSEUDO-STATEMENT-NUMBER FOR INDEXED LISTS 

TMB DO STATEMENT-NUMBER 

TMG FREE TEMPORARY 

TMD INPUT/OUTPUT SUBROUTINE TAG 

TME START OF LOGICAL RELATION 

TMF START OF ARBAY REFERENCE 

TMG EXPRESSION INDEX ASSIGNMENT 

TMH START OF EXPRESSION 

TMI FIRST STATEMENT NUMBER 

TMJ SECOND STATEMENT NUMBER 

TMK THIRD STATEMENT NUMBER 

TML ARGUMENT COUNT FOR CALL 

IMM NAME TAG FOR CALL 

TMN ARGUMENT TAG FOR CALL 

TMO START OF CONDITIONAL STATEMENT 

TMP CURRENT EXTENDED COMMON BLOCK-LENGTH 

TMQ CURRENT COMMON BLOCK-NAME 

TMR BASE ADDRESS FOR EQUIVALENCE GROUP 

TMS END OF RECORD FLAG 

TMT DIMENSION COUNTER 

TMU CONSTANT PORTION OF ARRAY ADDRESS 

TMV MULTIPLIER FOR SECOND SUBSCRIPT 

TMKT MULTIPLIER FOR THIRD SUBSCRIPT 

TMX SECOND OR THIRD SUBSCRIPT MULTIPLIER 

TMY INDEX REGISTER ASSIGNMENT FOR ARRAY ADDRESS 

TMZ ARGUMENT POINTER FOR FUNCTION REFERENCE 

TPT . TEMPORARY FOR UNPACK 

WNZ WRITE-ENTRY COUNTER 

ZAA RELATIVE START OF CURRENT PROGRAM OR SUBROUTINE 

ZAB SHORT-FILE START 

III I-PORTION OF MACHINE INSTRUCTION 

JJJ J-PORTION OF MACHINE INSTRUCTION 

KKK K-PORTION OF MACHINE INSTRUCTION 
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APPENDIX C 



ELOW CHARTS FOR EXECUTION TIME ROUTINES 



December, 1965 



GET FORMAT NUMBER AND 
STORE IN ERROR MESSAGE 



IS ARGUMENT THE ADDRESS 
OF THE PARAMETER LIST 7 



NO 



READ ARGUMENT 

IS ARGUMENT A TAPE 

NUMBER ? 



CONVERT TAPE NUMBER TO 
DISPLAY CODE 
GENERATE "TAPEXX" 



«-*» 



SEARCH LIST OF FILE 
NA>1ES AT RA + 2 



I IS FILE NAME IN LIST ? 1 — 



IS ADDRESS OF PARAMETER 
LIST IN FILE NAME WORD ? 



STORE FILE NAME IN ERROR 

tfESSAGE 

"UNDEFINED INPUT MEDIUM" 



^ 



INITIALIZE FLAGS t, POINTERS 
SAVE ARGUMENT LIST ADDRESS 
SET CROUP COUNT TO 1 



SET RE-ENTRY SWITCH 
FILL FORMAT BUFFER 
READ NEXT RECORD 



I ""I 



I INFUTC - OBJECT TIME INPUT SUBR. | 



H IS THIS THE FIRST ENTRY ? ] 



CLEAR DATA FLAG 



J 



SAVE DATA ADDRESS 
SAVE ARRAY LENGTH 



IS THE ITEM REPEAT COUNTER 
NON.ZERO 7 



JUMP TO PRESET RE-ENTRY 
POINT 



IS FORMAT BUFFER EMPTY 7 j HfILL FORMAT BUFFER 

YES 



B 1 (ga 



READ FORMAT CHARACTER 
IS CHARACTER A SPACE 7 



*■ 



_IS FORMAT CHARACTER A ")"7 | - K^^ 

YES 



IS REPEAT GROUP COUNTER 
NON.ZERO 7 



YES 



DECREMENT REPEAT GROUP 

COUNTER 

IS COUNTER NOW ZERO ? 



IS PARENTHESIZED GROUP 
COUNTER ZERO 7 



I IS DATA FLAG SET 7 "] H SET REPEAT CROUP CTR TO H - 



SET FORMAT CHARACTER POINT- 
ER TO BEGINNING OF rCffiMAT 
TO BE REPEATED 



nU KMOftT BUTPER WITH 
rORM^T TO BE RCPEATEP 



I 



-> { IS FORMAT BITFER EMPTY ? j * * { FILL FOR.".\T BLTFER j 



READ FORMAT CHARACTER 
IS CHARACTER A SPACE, 
")", 0R",« 7 



HAS END OF FORMAT BEEN 
REACHED 7 



-— |lS THIS THE FINAL ENTRY 7" 
NO VES 



IS THE DATA FLAG SET 7 | e>^0^ 

J YES ^^ 

,— J .NO 



SET REPEAT GROUP CTR TO 1 
READ NEXT DATA RECORD 



■*Q 



1 



SET REPEAT GROUP CTR TO 
SET ITEM MULTIPLIER TO 1 



1 




IS FORKNT CHARACTER 
NUMERIC 7 


Ml/ 


NO 




YES 




CONVERT NUMBER TO BINARY 
SET ITEM MULTIPLIER 










ADVANCE TO NEXT NON-SPACE 
FORMAT CHARACTER 





® 



NEXT 
PAGE 



7 



ro 



1 



\ IS FORMAT C>UR.\CTER Ir''! \ 1 | IS FORMU CR^RACTER A "/"? | > \lS FORMVT CHARACTER "I" ? | 



YES NO 



H 



^ IS GROUP REPEAT COUNT rT~] 



IS CROUP REPEAT COUNT ZERO? | 



-tfc | READ NEXT DATA RECORD J 



IS THERE A MULTIPLIER 1 



CONVERT FOLLOWING w FIELD 

TO BirJARY AND I5T0RE 

SET FLAG FOR 1 CONVTRSION 



DECREMENT MULTIPLIER 
IS MULTIPLIER ZERO ? 



NEXT PAGE 



END OF FORMAT REACHED ? 



SELECT ERROR MESSAGE 
"NO CLOSING PARENTHESIS" 



^ 



3-1 



YES NO 



ADVANCE TO NEXT NON-SPACE, 
NON-COMMA CHARACTER 



I IS FORMAT CRAR/^CTER "X" ? t * 



WILL DATA EXCEED AVAIL- 
ABLE INPUT FIELD 7 



ADVANCE DATA POINTER OVER 
SPECIFIED NUMBER OF 
CHARACTERS 



SET GROUP REPEAT COUNT 
EQUAL TO MULTIPLIER 
SAVE ADDRESS OF "(" 



ON PREVIOUS PAGE 



SELECT ERROR MESSAGE 
"EXCEEDED RECORD SIZE" 



1 IS THERE A MULTIPLIER ? | 



I 



SAVE ADDRESS OF "(" AS 
INKER PARENTHESIS POINTER 



<5) 



i 



ADVANCE FORMAT POINTER TO 
CHARACTER FOLLOWING "," 
DECREMENT REPEAT COUNT 



■♦< B ; PREVIOUS 
PAGE 



STORE CONVERTED DATA WORD 
SAVE DATA POINTER 
SAVE FORMAT POINTER 



I EXIT Y *- 



IS DATA BEING LOADED IN AN 
ARRAY ? 



ADVANCE ARRAY DATA ADDRESS 
DECREMENT ARRAY LENGTH 



STORE SECOND DATA WORD 
ADVANCE ARRAY DATA ADDRESS 
DECREMENT ARRAY LENGTH 



H — [ 



WAS DATA DOUBLE-PRECISION? 



(m^ {is ARRAY LaVDINcToMPLETE ? 1 



IS FORH\T CHARACTER "A" ? 



K 



"I •/«[) NEXT 



NO ^-^ PAGE 



IS MULTIPLIER ZERO 



SELECT ERROR MESSAGE 
'ZERO MULTIPLIER ON SPEC" 



I 



SAVE MULTIPLIER AS REPEAT 

COUNT 

CONVERT w FTELD TO BINARY 



■o 



WILL DATA EXCEED AVAILABLE 
INPUT FIELD ? 



SELECT ERROR MESSAGE 
"EXCEEDED RECORD SIZE" 



I 



K 



IS THIS THE FINAL ENTRY? 



IS THE DATA FLAG SET ? 



] NO '' i ^"^ 







l- H IS w 



GREATER THAN 10 ? 



SEARCH LIST OF FILE 
MVMES AT RA 4 2 



I END OF LIST RE\CHED 



C 



IS FILE IN USF, ? 



,„frz 



IS FILE AN OUTPUT FILE ? 



CI0 REQUEST: 
WRITE FILE MARK 



d 



ENTER RECALL 

FILE OPERATIONS COMPLETE? 



ENTER DAYFILE MESSAGE 
"JOB ABORTED." 



REQUEST MTR TO ABORT JO B ~] 



ADVANCE DATA POINTER BY 
w - 10 
SET w - 10 



PACK ASSEMBLY WORD WITH 

u DATA CHARACTERS 

WAS A FULL WORD PACKED ? 



LEFT JUSTIFY AND SPACE 
FILL ASSEMBLY WORD 



SET RE-ENTRY POINT TO 



© 



u> 



from previous page 
h1 



IS FORMAT CHARACTER "E" ? | 

YES NO 



H>© 



ON 

NEXT 

PAGE 



SET E CONVERSION FLAG 
SAVE MULTIPLIER AS REPEAT 
COUNT 



CONVERT w TO BIN.\RY i SAVE 
IS NEXT FORMAT CHARACTER A 
DECIMAL POINT ? 



CONVERT d TO BINARY (. SAVE ) 



SET RE-ENTRY POINT TO 



© 



<D 



1 IS THIS THE F I NAL ENTRY ? | 



© 



VILL DATA EXCEED AVAIL- 
ABLE INPUT FIELD ? 



<D 



.SELECT ERROR MESSAGE: 
"EXCEEDED RECORD SIZE" 



© 



■»i{lS THIS AN "F" CONVERSION ?^ 



FETCH p SCALE FACTOR 
SAVE AS OVERFLOW COUNTER 



FETCH DATA CHARACTER 
IS CMRACTER A BLANK 1 



YES 

ks — 






REDUCE w corar 

IS w COUNT ZERO 7 



IS CHARACTER A + OR 
SIGN 7 



IS CHARACTER A SPACE ? 



SET ASSEMBLY WORD TO 
FOR BLANK FIELD CONVERSION 



SET DATA SIGN 
(SET DATA SIGN TO PLUS 
IF NO SIGN) 



I 



PREVIOUS PAGE 



|fETCH next DATA CHARACTER | 



HAVE w DATA CHARACTERS 
BEEN PROCESSED 7 



~7T® 



jfej IS CHARACTER ALPH-INUMERIcT}- 



PC V.^ 



I IS THIS AN "I" C ONVERSION? | Ss- 

YES 



K 



SELECT ERROR KESSACF. 
"ILLEGAL DATA COL. xx" 



IS CHARACTER A 



u 



INITIALIZE FRACTIONAL 
DIGIT COUNT 



-KD 



<D 



I IS CHAR.\CTER NUMERIC ? ~\. 



IS THIS AN "l" CONVERSION? 



K 



SELECT ERROR MESSAGE 
"ILLEGAL CODE IN EXP. FIELD 



CONVERT DIGIT TO BINARY 
POSITION BITS IN ASSEMBLY 
REGISTER 



1 



IS CHARACTER "D" OR "E" ? 



SELECT ERROR MESSAGE: 
"ILLEGAL CODE IN EXP. 
ONENT FIELD" 



-KD 



IS THIS AN "I" CONVERSION? 



HAf A DECIMAL POINT BEEN 
ENCCSnrrERED YET ? 



INCREMENT FRACTIONAL 
DIGIT COUNT 



NO 

©H- 



YES NO 



CONSTRUCT INTEGER 
MORE THAN 59 BITS 
ASSEMBLED ? 



SELECT ERROR MESSAGE; 
"INTEGER TOO LARGE" 



r 

FETCH NEXT DATA CHARACTER 
DECREMENT w COUNT 
IS w COUNT ZERO 7 



I 



-KD 



SCALE AND ROUND RESULT 
RESULT OUT OF RANGE 7 



I 



NO YES 



SELECT ERROR MESSAGE: 
"EXPONENT TOO LARGE" 



I 



FETCH NEXT WTA CHARACTER 
INCREMENT w COUNT 
IS w COUNT ZERO 7 



**© 



j IS CHARACTER " + " OR "."?']- 



SET SIGN OF F.xrONEN'T 
FETCH NEXT DATA CHAIWCTER 



I IS CHARACTER NUMERIC ? 



SELECT ERROR MESSAGE 
"ILLEGAL DATA COL. xx' 



CONVERT DIGIT TO BINARY 
POSITION BITS IN EXPONENT 
ASSEMBLY REGISTER 



& 



' [exponent GREATER TH\N 512? | 



SELECT ERROR MESSAGE: 
"EXPONENT TOO LARGE" 



I 



FROM PREVIOUS PAGE 



i 



" His FOFL'^i.- CHARACTER " F" ? | 



I SET F CONVERSION FUC | 



^ 



ON PREVIOUS PAGE 



-Sf\ IS FORMAT CHARACTER "g" ? \ 



SAVE MULTIPLIER AS REPEAT 

COUNT 

CONVERT w TO BINARY i SAVE 



IS THIS THE FIHAL ENTRY? | 



I IS THE DATA FLAG SET ? | »■ { EXIT | 



I 



WILL DATA EXCEED AVAILABLE 
INPUT FIELD ? 



h— ® 



SELECT ERROR MESSAGE: 
"EXCEEDED RECORD SIZE'i 



^ 



FETCH DATA CHARACTER 
IS CHARACTER A SPACE? 



I IS CHARACTER + OR - ? "} - 



SET DATA SIGN TO PLUS 
OR MINUS 



FETCH NEXT DATA CHARACTER 
DECREMENT w COUNT 
IS w COUNT ZERO ? 



.KD 



H IS CRARACTER A SPACE ? "1 



CONVERT CHARACTER TO OCTAL 
POSITION IN ASSEMBLY REG. 
WAS CHARACTER NUMERIC ? 



-j SET NGN. OCTAL DIGIT FLAG } 



1 



I IS DATA SIGN NEGATIVE ? 



COMPLEMENT RESULT 



SET RE-ENTRY POINT TO 



© 



z 



-InON.QCTAL digit flag SET? 



SELECT ERROR MESSAGE: 
"ILLEGAL DATA COL. xx" 



I 



IS F0R>1\T CHAR\CTER "H" ? 



SAVE ►niLTI FLIER AS REPFJ^T 

COUNT 

CONVERT w TO BINARY & SAVE 



WILL RATA EXCEED AVAIL- 
ABLE INPUT FIELD ? 



SELECT ERROR MESSAGE: 
"EXCEEDED RECORD SIZE" 



■Kf) 



I IS FORMAT BUFFER FILLED? "] • 



TRANSFER CHARACTER FROM 
DATA BUFFER TO FORMAT 
BUFFER 



DECREMENT w COUNT 



ASSEMBLE FORMAT BUFFER 
CONTENTS INTO A SINGLE 
WORD 



COPY ASSEMBLED WORD INTO 
CALLING PROGRAM'S FORMAT 
STATEMENT AREA 



ASSEMBLE REMAINING FORMAT 
BUFFER CONTENTS INTO A 
WORD, RIGHT-JUSTIFIED 



COPY ASSEMBLED WORD INTO 
CALLING PROGRAM'S FORMAT 
STATEMENT AREA 



ADVANCE TO NEXT NON-BIANK, 
NON-COMMA FORMAT CHARACTER 



fe ] IS FORHU Cil'.H.A,r~R ■'*■■? I ^J) 



IS FORMAT BUFFF-K FII.I ED 



ASSEMBLE FORMAT BUFFER 
CONTENTS INTO A SINGLE 
WORD 



COPY ASSEmLF.D WORD INTO 
CALLING PROGRAM'S FORMAT 
STATEMENT AREA 



FETCH NEXT DATA CHARACTER 
IS CHARACTER AN "*" ? 



.0 



NEXT 
I'AGE 



FETCH NEXT FORMAT CHARACTER 
IS CHARACTER AN "*" ? 



TRANSFER DATA CHARACTER 
TO FORMAT BUFFER 



ASSEMBLE REMAINING FORMAT 
BUFFER CONTENTS INTO A 
SINGLE WORD 



-<D 



FROM 
NEXT 
PACE 



COPY ASSEMBLE WORD INTO 
CALLING PROGRAM'S FORMAT 
STATEMENT AREA 



ADVANCE TO NEXT NON- BLANK, 
NON-COMMA FORMAT CHARACTER 



I 






I 



FRm PREVIOUS PAGE 



FETCH NEXT FORMAT CHARACTER 
IS CHARACTER AN "*" 7 



-«<!) 



FROM PREVIOUS PAGE 

1 



ON 

PREVIOUS 

PAGE 



|IS FORMAT CHARACTER ..«,■ ? | -,^ H IS FORmT CEARACTER n,,. , | 

YES ^ I 



I IS FQi-MAT BUFt-EFFILLED ? j 1 



ASSEMBLE FORMAT BUFFER 
CONTENTS INTO A SINGLE 
WORD 



COP^' ASSEMBLED WORD INTO 
CALLING PROGRAMS I S FORMAT 
STATEMENT AREA 



ENTER A BLANK IN FORMAT 
BUFFER 



SAVE MULTIPLIER AS REPEAT 

COUNT 

CONVERT w TO BINARY & SAVE 



SAVE MULTIPLIER AS REPEAT 

COUNT 

CONVERT w TO BIN.\RY i, SAVE 



WILL DATA EXCEED AVAILABLE 
INPUT FIELD ? 



SELECT ERROR MESSAGE: 
"EXCEEDED RECORD SIZE" 



— ^-Tg) 



WILL DATA EXCEED AVAIL- 
ABLE INPUT FIELD ? 



"31 (w) 



SELECT ERROR MESSAGE: 
"EXCEEDED RECORD SIZE" 



-KD 



, I 

i IS THIS THE FINAL ENTRY 7 | 



■ i 

{IS THIS THE FINAL ENTRY 7 | 



I IS THE DATA FLAG SET 7 






YES 



© 



|:s THE DATA FLAG SET ? 



I 



1 IS w GREATER THAN 10 ? 1 



I SET FALSE FLAG | 



ADVANCE DATA POINTER OVER 
W - 10 CHARACTERS 



ASSEMBLE DATA CHARACTERS 
IN A SINGLE WORD, RIGHT 
JUSTIFIED 



ll 

•ERS I 
HT- j 



SEARCH NEXT w DATA CHAR- 
ACTERS FOR A NON-BLANK 
CHARACTER 



^ IS CHARACTER A "T" ? ~] 



SET RE-ENTRY POINT To(u) 



I 



1 



DOES FIELD CONTAIN A NON- 
BLANK CHARACTER ? 



3 



I SET TRUE FLAG 



4 



SET RE-ENTRY POINT TO (u) 



■^l IS FORMAT CH.\RACTER "P" 7 | 



CCMPLEMENT MULTIPLIER AND 
SAVE AS SCALE FACTOR 



ADVANCE TO NEXT NON-BLANK, 
NON-CCMMA FORMAT CHARACTER 



^ 



c 



jlS FORMAT CHARACTER -f OR - ? | 



SET SIGN REGISTER 
CONVERT n TO BINARY AND 
SAVE AS SCALE FACTOR 



1 



IS THE NEXT 
CHARACTER A 



YES 



FORMAT I 
ri I 



j SELECT ERROR MESSAGE: 

j " I LLEGAL FUNCTI ONAL CODE " 



^ 



COMPLEMENT SCALE FACTOR 
ACCORDING TO SIGN 



j ADVANCE TO NEXT NON-BLANK 
j NON-CCMMA FORMAT CHARACTER 



¥ 



IS rORHAT CHARACTER "D" ? | 



I SET "P" CONVERSION FUG 
5 



J SI 



SELECT eSXOR MESSAGE: 
"ILLEGAL rUNCTI(»(AL CODE" 



^ 



?i 



CONTROL DATA 



8100 34th AVE. SO.. MINNEAPOLIS, MINN. 55440 



PtINTED IN U.S.A. 



